Para eso puedes usar los controles MAPI o crearte un objeto de tipo outlook.
Para los controles MAPI hay un ejemplo en visual basic q. esta muy bien, esta en los ejemplos de visual basic. Si tienes instalado en visual basic en el directorio de Archivos de programa sería aquí:
C:\Archivos de programa\Microsoft Visual Studio\MSDN98\98VSa\3082\Samples\VB98\misc\Vbmail
Si lo haces creando un objeto de tipo outlook sería así:
Dim objOutlook As Object
Dim objMailItem
On Error GoTo erro
Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)
With objMailItem
.To = "
[email protected]"
.CC = "
[email protected]"
.Subject = "Prueba envio Correo"
.body = "Este es el cuerpo de mensaje"
.attachments.Add (c:\ prueba.txt)
.Send
End With
Set objMailItem = Nothing
Set objOutlook = Nothing
Exit Sub
DoEvents
Exit Sub
erro:
If Err.Number = 429 Then
MsgBox "Error on connecting with Outlook"
Else
MsgBox "error Description is " & Err.Description & " err number is " & Err.Number
End If
SEt objMailItem = Nothing
Set objOutlook = Nothing
