Como enviar un correo desde visual basic

[gabotronic]

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,

[Nocturno]

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.

[gabotronic]

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

[Nocturno]

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