EMAIL PARA DUAS OU MAIS PESSOAS!

USUARIO.EXCLUIDOS 25/04/2007 07:56:38
#213616
Usando este código abaixo, como devo preencher a Variavel Destino, para mandar email para mais de 1 endereço:

MAPISession1.SignOn
MAPISession1.DownLoadMail = False
DoEvents

MAPIMessage1.SessionID = MAPISession1.SessionID
MAPIMessage1.Compose
MAPIMessage1.RecipAddress = Destino
MAPIMessage1.ResolveName
MAPIMessage1.MsgSubject = "Teste"
MAPIMessage1.MsgNoteText = "Bla bla bla"
MAPIMessage1.Send False

MAPISession1.SignOff

Grato a todos!
RXGOMES 25/04/2007 08:41:58
#213625
Olá para enviar email eu uso está rotina

  
[c]Private Sub cmdEnviar_Click()
  Dim objOA    As Outlook.Application
  Dim objMI    As Outlook.MailItem
  Dim obgAtt   As Outlook.Attachments
  Set objOA = New Outlook.Application
  Set objMI = objOA.CreateItem(olMailItem)
  
  If lstChkLst.ListIndex > -1 Then
    Call MakeReport
  
    objMI.To = "joao fern;jose gabriel" ' mais de um destinatário
    'if Em_CC <> "" Then objMI.CC = Em_CC
    'If EM_BCC <> "" Then objMI.BCC = EM_BCC
    objMI.Subject = "Checklist de Container"
    'If EM_Body <> "" Then objMI.Body = EM_Body
    objMI.Attachments.Add App.Path & "omaneio.pdf", 1, , "CheckList.pdf"
    objMI.Display
    
    Set objOA = Nothing
    Set objMI = Nothing
  Else
    MsgBox "Não a CheckList selecionado para enviar"
  End If
End Sub

[/c]
USUARIO.EXCLUIDOS 25/04/2007 09:00:02
#213626

O problema é que tem que ser o Outlook Express...

Mas obrigado de q forma!!
USUARIO.EXCLUIDOS 25/04/2007 14:06:50
#213709
a cdosys.dll (nativa win XP) também não faz envio para varios usuários (até onde eu saiba)...
mas existe a py.sendmail...

tente dar uma olhada nesse site aqui: http://www.gs.kitbr.com/pysendmail.html

Espero ter ajudado.
Tópico encerrado , respostas não são mais permitidas
Voltar