Hola Aida:
Yo los envio de la siguiente manera:
- Code: Select all Expand view
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := xmailserv
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := xmailpuer
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := xemail
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := xmailcont
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = alltrim(envimail->dSend)
:To = alltrim(envimail->dTocl)
:Subject = alltrim(envimail->cSubject)
:TextBody = alltrim(envimail->cText)
:AddAttachment = alltrim(envimail->cFile)
:Send()
END WITH
Los campos del acceso:
xmailserv : Servidor smpt.
xmailpuer: Puerto del servidor. (lo mas habitual 25)
xemail: correo el que se envia el email.
xmailcont: Contraseña de acceso.
Creo una base de datos con los campos:
dSend: email de envio.
dTocl: Email a quien envias
cSubject: Asunto del email
cText: texto del Email.
cFile: Archivo ajunto.
Espero que te sirva.
Un saludo
Carlos