TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: gabotronic en 20 de Noviembre de 2004, 13:48:00

Título: Como enviar un correo desde visual basic
Publicado por: gabotronic en 20 de Noviembre de 2004, 13:48:00

Amigos:

Estoy haciendo un soft que me toma datos de nivel y cuando llega a un estado critico, este debe enviar un correo prederterminado.

Alguien me puede ayudar con este temita??

Saludos,

Título: RE: Como enviar un correo desde visual basic
Publicado por: Nocturno en 20 de Noviembre de 2004, 14:07:00

He estado buscando un ejemplo que yo tenía hecho que justamente lo único que hacía era enviar emails, pero no lo encuentro.

De todas formas, te doy una pista. Busca en la ayuda sobre el objeto MAPI. Esta es la estructura:

Type MapiMessage
     Reserved as Long
     Subject as String
     NoteText as String
     MessageType as String
     DateReceived as String
     ConversiondID as String
     Flags as Long
     Originator as Long
     RecipCount as Long
     FileCount as Long
End Type  

Manejando bien este objeto tendrás control total sobre los emails.

Título: RE: Como enviar un correo desde visual basic
Publicado por: gabotronic en 24 de Noviembre de 2004, 15:08:00

Estaria muy agradecido si me dieran un ejemplo, pues estoy realmente colgado

Título: RE: Como enviar un correo desde visual basic
Publicado por: Nocturno en 25 de Noviembre de 2004, 16:30:00

He seguido buscando y no encuentro lo que hice. De todas formas, he encontrado en Internet una forma muy fácil de hacerlo, y es vinculando tu programa al Outlook.
Así:

Codigo:
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem

Set oOApp = CreateObject("Outlook.Application"
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
.To = "name@domain.com"
.Subject = "email subject"
.Body = "email message"
.Attachments.Add "\serverdrivefolderfilename", olByValue, 1
.Send
End With