Enviando Email

[glugani]

Pessoal,

eu gostaria de saber como eu posso enviar email pelo Visual Basic sem precisar de alguma dll externa... alguma coisa que se possível nem passe pelo outlook... mas se não tiver jeito, pode ser pelo outlook...

Eu consegui enviar pelo vbsendmail.... so que ele não tem um recurso de colocar uma imagem no corpo do email...por isso estou descantado ele...

Obrigado

Guilherme

[Fabson]

Já tentou essa:

MAPISession.UserName = origem.Text

MAPISession.Password = senha.Text

MAPISession.SignOn

MAPIMessages1.SessionID = MAPISession.SessionID

MAPIMessages1.Compose

MAPIMessages1.RecipAddress = destino.Text

MAPIMessages1.MsgSubject = assunto.Text

MAPIMessages1.MsgNoteText = mensagem.Text

'anexa no final da mensagem

MAPIMessages1.AttachmentPosition = Len(MAPIMessages1.MsgNoteText)

'define o tipo de dados do anexo

MAPIMessages1.AttachmentType = mapData

'da um nome ao anexo; 'define o caminho e nome do arquivo a anexar

MAPIMessages1.AttachmentName = NomeAnexo

MAPIMessages1.AttachmentPathName = Anexo

'envia o arquivo

MAPISession.SignOff

MAPIMessages1.Send True