|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Enviar E-mail pelo VB via MAPI
|
 |
|
|
|
Postada em 9/10/2003 por Roßerto
'Coloque este código no evento que você quizer:
Dim objSession As Object
Dim objMessage As Object
Set objSession = CreateObject("MAPI.SESSION")
Set objMessage = objSession.Inbox.Messages.Add
objSession.Logon "Your Profile Name", , _
False, False
objMessage.Subject = "Assunto do e-mail..."
objMessage.Text = "Texto do e-mail..."
'Aqui você deve colocar o caminho COMPLETO
'do arquivo que irá em anexo:
objMessage.Attachments.Add "Anexo", , , _
"C:anexo.XLS"
'Se for mais de um destinatário, separe
'os endereçod de e-mail por virgulas (,)
'ou ponto e virgula (;).
objMessage.Recipients.Add _
"Endereços de e-mail do(s) destinatário(s)"
objMessage.Recipients.Resolve
objMessage.Send
Não esqueça de adicionar o seguinte componente
MICROSOFT MAPI CONTROLS 6.0
Roberto
|
|
|
|
|
