Eu peguei essa dica aqui no VBweb de como enviar e-mail pelo VB, porem eu tenho algumas duvidas e tbm não esta funcionando, alguem poderia me ajudar?
'Coloque este código no evento que você quizer:
Dim objSession As Object
Dim objMessage As Object
Set objSession = CreateObject("MAPI.SESSION") **** (QDO TENTA CRIAR ESSE OBJETO OCORRE O ERRO ->RUN-TIME ERROR '429' ActiveX component can't create object
Set objMessage = objSession.Inbox.Messages.Add
objSession.Logon "Your Profile Name", , _ ******** (QUE PROFILE É ESSE?) ***********
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
