Enviar arquivo para e-mail pelo VB!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Enviar arquivo para e-mail pelo VB!

JOHNNY
não registrado

ENUNCIADA !

Postada em 26/03/2006 12:12 hs

OLÁ LUIZ FERNANDO TE MANDEI O PROJETO POR E-MAIL.

_Luiz_Fernando_

SÃO PAULO
SP - BRASIL

Postada em 26/03/2006 12:53 hs

Mano ñ conseguir da o mesmo erro....sera pq tem 3 contas no Outlook Express e tb tem o Outlook q vem com o Office?????????

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com

Obs. Hotmail uso apenas para messenger!!

Aprendiz e Futuro programador!!!

"Todo seu conhecimento deve ser compatilhado!!!" ------

Armando Gioia

SÃO PAULO
SP - BRASIL

Postada em 27/03/2006 08:04 hs

naum tem problema que tem 3 contas ele manda ne principal... e ele mando pelo express

_Luiz_Fernando_

SÃO PAULO
SP - BRASIL

Postada em 27/03/2006 08:08 hs

mas pq q ele continua dando erro aqui.....>

Private Sub Form_Load()
MAPISession1.DownLoadmail = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "luyzfernando@gmail.com"
MAPIMessages1.MsgSubject = "Minha carta"
MAPIMessages1.MsgNoteText = "carta"
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
MAPIMessages1.AttachmentType = mapData
MAPIMessages1.AttachmentName = "carta"
MAPIMessages1.AttachmentPathName = "c:carta.txt"
MAPIMessages1.Send False 'COM A OPÇÃO FALSE O OUTLOOK ENVIA O E-mail DIRETO
MAPISession1.SignOff
End Sub

E-mail.............. luyzfernando@gmail.com
Msn...................luyzfernando@hotmail.com

Obs. Hotmail uso apenas para messenger!!

Aprendiz e Futuro programador!!!

"Todo seu conhecimento deve ser compatilhado!!!" ------

JOHNNY
não registrado

Postada em 27/03/2006 09:01 hs

MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "luyzfernando@gmail.com"
MAPIMessages1.MsgSubject = "Minha carta"
MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)
MAPIMessages1.AttachmentType = mapData
MAPIMessages1.AttachmentName = "carta.txt"
MAPIMessages1.AttachmentPathName = "c:carta.txt"
MAPIMessages1.Send False 'COM A OPÇÃO FALSE O OUTLOOK ENVIA O E-mail DIRETO
MAPISession1.SignOff

SE ISTO DER ERRO POSTE O ERRO,DESCREVA-O.

Korn

SAO PAULO
SP - BRASIL

Postada em 27/03/2006 09:25 hs

mandei um pra tu ve se serve pra vc , é usando mapi tambem

Jesus Cristo é O Senhor!!!

Página(s): 2/4 « ANTERIOR PRÓXIMA »