Comando SendMail

Question

Como faço para utilizar o comando SendMail para enviar um e-mail automaticamente para mais de um Usuario.

Answer 1

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 = [e-mail] 
            .CC = [e-mail] 
            .Subject = "assunto"
            .Body = "" _
                + "Teste de email." _
          .Attachments.Add ("daniel.jpg") 'coloca algum anexo
        End With

        objMail.Send
        Set objMail = Nothing
        Set objOL = Nothing

End Sub

Espero ter ajudado!

 

Answer 2

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.

Answer 3

Olá Lucas,

Vc setou o Microsoft Outlook como default?

 

Answer 4

fui em ferramentas e referencias e adicionei conforme havia mencionado

Answer 5

Lucas,

o outlook esta com a conta de e-mail para envio configurada?

[]'s

Answer 6

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"

Answer 7

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