Enviar Email

[Joaozava]

alguém pode me dizer como eu faço pra mandar email pelo vb....

eu estava tentando fazer da seguinte maneira:

  MAPISession.UserName = "email@email.com.br"
  MAPISession.Password = "senha"
    
  MAPISession.SignOn

  MAPIMessages.SessionID = MAPISession.SessionID

  MAPIMessages.Compose
  MAPIMessages.RecipAddress = "viaexpress002@terra.com.br"
  MAPIMessages.MsgSubject = "Backup"
  MAPIMessages.MsgNoteText = "Backup"

  'anexa no final da mensagem
  MAPIMessages.AttachmentPosition = Len(MAPIMessages.MsgNoteText)
  'define o tipo de dados do anexo
  MAPIMessages.AttachmentType = mapData
  'da um nome ao anexo
  MAPIMessages.AttachmentName = "Anexos"
  'define o caminho e nome do arquivo a anexar
  MAPIMessages.AttachmentPathName = Arquivo

  'envia o arquivo
  MAPIMessages.Send True
  MAPISession.SignOff

O codigo seria pra mandar automaticamente um backup pro email do usuario, acontece que assim pede pra digitar a senha do outlook....

mas eu queria que fosse enviado se precisar digitar nada e sem abrir o outlook....

Obrigado!

[Graymalkin]

Você terá de usar o Winsock para enviar as mensagens, se conectando diretamente a um servidor SMTP. Existem exemplos na seção Arquivos da página: http://www.yahoogrupos.com.br/group/vbj

Pretendo fazer uma DLL para isso (em Python) que poderá ser utilizada em programas VB. Assim que eu tiver feito, te falo.

Abraços,

Graymalkin

[Joaozava]

Pretendo fazer uma DLL para isso (em Python) que poderá ser utilizada em programas VB. Assim que eu tiver feito, te falo.

beleza, aguardo seu aviso, será bem util ....

Enquanto isso vou dar uma procurada no link q você me passou....

Vlw!