Aragorn_de_arathorn
16 de Diciembre del 2002

Hola a todos! Necesito ayuda.

Estoy creando un programa de contabilidad y necesito saber como enviar correos, ej:

Un programa que cada vez que le de a un boton se envie un correo, pero no por outlook express sino que al darle al boton se envie directamente mediante una cuenta ej:

Cuenta: [email protected]
Asunto: Cuentas
Cuerpo: jklasdhfjksdhfkjsadhf

y mediante la cuenta [email protected]
y password hola

Por favor ayundenme

Manolo
16 de Diciembre del 2002

Te envio el siguiente código, funciona bastante bien pero debes tener seleccionadas las siguientes librerias
CDO.DDL
MSCOMCTL.OCX


Sub envio_mail()
Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object

ThisDocument.SaveAs ("c:fi.txt")

'Abrimos una sesión Mapi
Set objSession = CreateObject("mapi.session")

'Logamos al usuario
objSession.Logon profileName:="Datamart"

'empezamos una nueva aplicacion
Set objMessage = objSession.Outbox.Messages.Add

'Introducinos el asunto y el curepo del mensaje
objMessage.Subject = ""
objMessage.Text = ""



'introducimos el destinatario
Set objRecipient = objMessage.Recipients.Add
objRecipient.Name = "[email protected]"
objRecipient.Type = mapito
objRecipient.Resolve


'Se adjunta un archivo
Set objAttach = objMessage.Attachments.Add

With objAttach
.Type = CdoFileData
.Position = 0
.Name = ActiveDocument.Name & ".rep"
.ReadFromFile "c:fi.txt"
End With

'Actualizamos el mensaje
objMessage.Update


'Enviamos el mensaje
objMessage.Send showDialog:=False

End Sub