Hola
Quisiera mandar un archivo por correo desde mi aplicación no se si se pueda los ejemplos no funcionan
alguien tendrá algo que funcione y quisiera compartir
Saluditos
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
sysctrl2 wrote:Holas Aida, Holas Kariha,
intento bajar este ejemplo: http://www.fivewin.com.br/exibedicas.asp?id=1063
pero el link esta roto, alguien tiene este ejemplo para envios de email?
saludos, gracias.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 96 guests