Inquiridor
Comando SendMail

Pergunta
-
Como faço para utilizar o comando SendMail para enviar um e-mail automaticamente para mais de um Usuario.quinta-feira, 9 de novembro de 2006 17:43
Todas as Respostas
-
Olá Lucas,
Tente isto:
Sub Send_Msg()
'ligar no Menu ferramentas/referencias a referencia ao Microsoft Outlook
On Error GoTo 0
Dim objOL As New Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)With objMail
.To = mbarrosdaniel@hotmail.com
.CC = mbarrosdaniel@hotmail.com
.Subject = "assunto"
.Body = "" _
+ "Teste de email." _
.Attachments.Add ("daniel.jpg") 'coloca algum anexo
End WithobjMail.Send
Set objMail = Nothing
Set objOL = Nothing
End SubEspero ter ajudado!
sexta-feira, 10 de novembro de 2006 16:41 -
Tentei realizar exatamente o que me passou mas ainda não deu certo, quando tento executar fala que deu erro no tempo de excução e não encontrou esta função Set objOL = New Outlook.Application, voc~e saberia me dizer porque isso esta acontecendo.
Att.
domingo, 12 de novembro de 2006 11:54 -
Olá Lucas,
Vc setou o Microsoft Outlook como default?
domingo, 12 de novembro de 2006 14:20 -
fui em ferramentas e referencias e adicionei conforme havia mencionadosegunda-feira, 13 de novembro de 2006 22:02
-
Lucas,
o outlook esta com a conta de e-mail para envio configurada?
[]'s
segunda-feira, 13 de novembro de 2006 23:08 -
Sim pois utilizando este comando descrito abaixo eu consigo enviar automaticamente, pórém para uma pessoa de cada vez
'ActiveWorkbook.SendMail Recipients:="Lucas Borges Rodrigues de Sa", Subject:="C:\Documents and Settings\lucas_borges\Meus documentos\Projeto"
terça-feira, 14 de novembro de 2006 13:35 -
Lucas,
Naquele código que mandei vc enviará apenas um email por vez. Mas pode colocar e-mails para cópias ocultas, cópias, etc;
Há um tempo atrás fiz aquele código dentro de um while, para pegar todos os e-mails de uma lista. Na lista coloquei alguns atributos por destinatário e os e-mails foram personalizados.
Deixo a sugestão de colocar o código dentro de um loop.
Espero ter ajudado!
[]'s
terça-feira, 14 de novembro de 2006 13:45