Enviar arquivo para e-mail pelo VB!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Enviar arquivo para e-mail pelo VB!

“Luiz Fernando”

SÃO PAULO
SP - BRASIL

Postada em 22/03/2006 09:25 hs

Pessoal....tenho um programa que tira foto a kda tantos minutos gostaria de aperfeiçoa-lo......tem gente que mexe onde ñ deve e por isso criei esse programa....pois ñ tenho tempo de ver todos os dias gostaria de saber se da para mim programar para ele enviar todos os arquivos para meu e-mail.....assim posso visualiza-lo de longe........pode ser um arquivo por vez.....no tanto q consiga mandar para meu e-mail......

Conto com vcs!!!!

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 22/03/2006 11:39 hs

VEJA SE ISSO SERVE:

CRIE UM CONTROLE MAPIMESSAGE E UM MAPISESSION.

Private Sub Form_Load()
MAPISession1.DownLoadMail = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "talk2cod@hotmail.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

DÁ UM JEITO DE ZIPAR A PASTA COM AS IMAGENS E ENVIAR PARA SEU E-MAIL,VEJA LÁ NO MACORATTI:

http://www.macoratti.net/d231202.htm

“Luiz Fernando”

SÃO PAULO
SP - BRASIL

Postada em 22/03/2006 15:27 hs

Johnny....estava dando uma olhada na dica para compactar.....e ñ conseguir da um erro "Objeto Requirido" vc sabe o que eh................vc tem um projeto desse para me passar se tiver me manda um e-mail blz.....flw...

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!!!" ------

jvlsm

SANTA MARIA
RS - BRASIL

Postada em 22/03/2006 16:14 hs

Caro Colega,

Sem dúvida nenhuma a melhor alternativa e a utilizacao da biblioteca VBSendMail.dll

Esta biblioteca e freeware e funciona super bem, utilizo ela em meus projetos.

Procure no google por VBSendMail.dll

Espero que a dica ajude.

Juliano V. Londero
jvlsm@terra.com.br

“Luiz Fernando”

SÃO PAULO
SP - BRASIL

Postada em 23/03/2006 06:34 hs

jvlsm ñ conseguir usar esta dll pois precisa registrar e da erro.............e como q faço para usa-la????????????

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!!!" ------

_Luiz_Fernando_

SÃO PAULO
SP - BRASIL

Postada em 26/03/2006 00:12 hs

estou com problema no codigo q o JOHNNY me mostrou...

Private Sub Form_Load()
MAPISession1.DownLoadmail = True
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "talk2cod@hotmail.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

quem souber me ajude..blz...valeu

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!!!" ------

Página(s): 1/4 PRÓXIMA »