ANEXAR ARQ.PARA O OUTLOOK DO VB

MFVB 12/04/2004 12:07:55
#20037
Boa tarde!

Alguém poderia me ajudar?

Estou utlizando o outlook para enviar e-mail e preciso anexar arquivo pelo VB, para o assunto e o corpo da mensagem consegui passar os valores, só preciso é anexar os arquivos.

ShellExecute Me.hwnd, "Open", "mailto:" & XCONSULTA & "?subject=" & "Orçamento" & "&body=" & "Orçamento","","", 1

Grato!
USUARIO.EXCLUIDOS 12/04/2004 21:06:41
#20177 Resposta escolhida
Utilize o Microsoft Mapi Control
adicione um mapi message e um mapisession


MAPISession1.SignOn
   MAPIMessages1.SessionID = MAPISession1.SessionID
   MAPIMessages1.Compose
   MAPIMessages1.RecipAddress = "aa@aa.com"
   MAPIMessages1.MsgSubject = "assunto"
   MAPIMessages1.MsgNoteText = "mensagem"
   MAPIMessages1.AttachmentIndex = 0 'Indice
   MAPIMessages1.AttachmentPathName = "C:\3.001"
   MAPIMessages1.Send
   
     MAPISession1.SignOff
Tópico encerrado , respostas não são mais permitidas
Voltar