Hola,
Como estan enviando emails desde FWH con ficheros Adjuntos.
Ya intente con TMail o Windows LiveMail 2011, OutLook de office 2007, salen bien, solo al momento de adjuntar un fichero .. no hace nada
HB_SendMail() no logro enviar desde servidores con SSL
Que otras opciones tengo?
Saludos,
Mauricio
#include "fivewin.ch"
#define olMailItem 0
#define olFormatHTML 2
function main()
local oWnd
define window oWnd
activate window oWnd on CLICK fromOle()
return nil
function fromOle()
local oOutlook := CreateObject( "Outlook.Application" )
local oMail
local cMessage:="<b>This is a test message.</b>"
cMessage += "<ul><li><a href='tdolphin.blogspot.com'>DOLPHIN</a></li></ul>"
oMail := oOutlook:CreateItem( olMailItem )
with object oMail
:Subject = "test " + time()
:BodyFormat = olFormatHTML
:HTMLBody = cMessage
:Recipients:Add( "danielgarciagil@gmail.com" )
:Attachments:Add( "nombre_del_archivo_con_la_ruta_completa" ) //ej: :Attachments:Add( "c:\fwh\samples\build.bat" )
:Send()
END
oOutlook:Quit()
return nilDaniel,
Funciona, el detalle es que si le pongo adjuntos me pregunta 2 veces si deseo permitir el envio de correo,
tendra que acostumbrarse el usuario en lo que puedo solucionar ese detalle
Saludos,
Mauricio
Function Correo(cFichero)
Local loCfg, loMsg, oError
local cPdf := cFichero + ".pdf"
local cXML := cFichero + '.xml'
TRY
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "mail.wizardsoftware.com.mx"
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 26
: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 := .f.
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "prueba@wizardsoftware.com.mx"
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "prueba"
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = "prueba@wizardsoftware.com.mx"
:To = "mauricio@mauricio.mx" // <----- Coloca ac tu direcci¢n de correo
:Subject = "Prueba con DO"
:TextBody = "Este es un mensaje de prueba con CDO desde Harbour."
:AddAttachment( cPdf )
:AddAttachment( cXml )
:Send()
ENDWITH
? "Enviado"
CATCH oError
END
ReturnHola a todos,
Y ya que estamos en lios CDOSys, yo tenía una pregunta:
En una máquina, a veces me funciona el envio con CDO y otras veces no. No entiendo por qué puede ser. Descarto antivirus y firewal porque ya digo que a veces va y a veces no va. ¿ Alguien sabe por qué puede pasar. ?
Gracias de antemano
alguna caracteristica en especial en los equipos que fallan?
probe winxp, win7 ultimate y me funciono bien
la proxima semana empezare la actualización con los clientes y te reporto si encuentro alguna falla y que SO/Antivirus se esta utilizando
Saludos,
Mauricio
Gracias Mauricio
Hola Mauricio
Tenia el mismo problema con la clase tmail y lo resolvi de la siguiente manera:
DEFINE MAIL oMail ;
SUBJECT cxSUBJECT ;
FILES cRutafileA , cRutafileA , cRutafileB , cRutafileB ;
TEXT cTexto ;
TO cEmail, cEmail
ACTIVATE MAIL oMail
MUY importante: NO USES CRLF en el texto de Subject.
Lo probe con windows Live Mail, sobre windows vista y XP
Saludos
espero les sierva.
DevTuxtla,
Acabo de probar CDO que se mira mas limpio el envio, el problema es que no deja copia en la bandeja de elementos enviados.
lo probe en WinXP SP2, con Avira, Nod32, Norton 360
WinVista Home..... todas las versiones
Win7 Pro..Ultimate y no me reporta errores
volvere a probar con TMail como lo indicas.
Cuando envias correos con adjuntos, cuantas veces te pide permiso para el envio?
Saludos,
Mauricio
Hola Mauricio.
Lo he probado con Windows Live Mail, y solo pide una autorizacion, lo cual me parece muy bien...
Con XP y Windows Vista y 7, va sin problemas.
Saludos