locked
Comando SendMail RRS feed

  • 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 With

            objMail.Send
            Set objMail = Nothing
            Set objOL = Nothing

    End Sub

    Espero 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 mencionado
    segunda-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