Page 1 of 1
Envio de emails
Posted:
Thu Mar 03, 2022 8:13 pm
by hmpaquito
Hola,
Un cliente con thunderbird como gestor de email, tiene problemas con el envio de emails. Leo en el sitio de TB que no funciona 100% con MAPI. He probado con CDOSYS y tambien tengo problemas. Tambien he visto que windows 10 mail tampoco es compatible con MAPI.
Se me acaban las ideas de como automatizar el envio de emails.
Se que existe hb_sendmail(), pero me parece que puede tener problemas.
Tambien conozco de la existencia de Harbour-TipMail() pero no sé si funcionara
Les pediria si me pueden echar un cable para enviar un email sin tener que usar software de costo
Gracias
Re: Envio de emails
Posted:
Fri Mar 04, 2022 1:00 am
by cmsoft
Hola, con este código envío con gmail.
Por ahí te puede servir.
- Code: Select all Expand view
*-------------------------------------------------*
Function EnviarPorMail
(cdestino,cFile
)*-------------------------------------------------*
LOCAL loCfg, loMsg, oError, isError := .F., oRep, cHtml, i, cColor
local cSMTP :=
"smtp.gmail.com"Local cPuerto :=
465Local cLogin :=
"mimail@gmail.com"Local cPassword :=
"clavedeaplicacion" // Clave de aplicacion para aplicaciones menos seguras de gmaillocal cRemitente:=
"<Factura Electronica>"Local cAsunto :=
"Envio de Factura electronica"local cSSL := .T., cAuth := .T.
// Armado del HTMLcHTML :=
''cHTML +=
'<!--' + CHR
(10)+CHR
(13)cHTML +=
' Document : Index HTML' + CHR
(10)+CHR
(13)cHTML +=
' Created on : 03/03/2023, 12:35:37 PM' + CHR
(10)+CHR
(13)cHTML +=
' Author : Nombre del Autor' + CHR
(10)+CHR
(13)cHTML +=
' Description: www.webdelautor.com' + CHR
(10)+CHR
(13)cHTML +=
'-->' + CHR
(10)+CHR
(13)cHTML +=
'' + CHR
(10)+CHR
(13)cHTML +=
'<html>' + CHR
(10)+CHR
(13)cHTML +=
' <head>' + CHR
(10)+CHR
(13)cHTML +=
' <title>Factura electronica</title>' + CHR
(10)+CHR
(13)cHTML +=
' </head>' + CHR
(10)+CHR
(13)cHTML +=
' ' + CHR
(10)+CHR
(13)cHTML +=
' <body>' + CHR
(10)+CHR
(13)cHtml +=
'<img src="http://forums.fivetechsupport.com/styles/prosilver/imageset/site_logo.gif" alt="Logo" width="100">' + CHR
(10)+CHR
(13)cHtml +=
'<p style="font-family: sans-serif; font-size: 16px; text-align: justify;">' + CHR
(10)+CHR
(13)cHtml +=
'Adjuntamos al presente mail la factura del mes en curso'cHTML +=
' </body>' + CHR
(10)+CHR
(13)cHTML +=
'</html>' + CHR
(10)+CHR
(13)// InternetloCfg := CREATEOBJECT
( "CDO.Configuration" )WITH OBJECT loCfg:
Fields:
Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):
Value := cSMTP
:
Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):
Value := cPuerto
:
Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):
Value :=
2:
Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):
Value := cAuth
:
Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):
Value := cSSL
:
Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):
Value := cLogin
:
Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):
Value := cPassword
:
Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):
Value :=
30:
Update()END WITH
loMsg := CREATEOBJECT
( "CDO.Message" )WITH OBJECT loMsg
:
Configuration = loCfg
:
From = cLogin
:
To = cDestino
:
Subject = cAsunto
:
MDNRequested = .f.
:
HTMLBody = cHtml
:
AddAttachment(cFile
) :
Send()END WITH
return nil
Re: Envio de emails
Posted:
Fri Mar 04, 2022 7:58 am
by hmpaquito
Hola César,
Gracias por responder.
Mi configuracion es exactamente la misma salvo en el timeout que en mi caso es de 60
Desde mi oficina el CdoSys funciona bien, despues de haber quitado los niveles de seguridad del gmail.
¿ Podría ser problema del ISP que en este caso es GoDaddy ?
Salu2
Re: Envio de emails
Posted:
Fri Mar 04, 2022 10:40 am
by cmsoft
Yo lo he probado desde diferentes configuraciones, y la verdad nunca ha dado problemas. Salvo las veces que gmail me ha obligado a poner la contraseña para aplicaciones menos seguras.
La verdad de que si el proveedor de internet puede afectar no lo se
Re: Envio de emails
Posted:
Fri Mar 04, 2022 11:51 am
by karinha
Re: Envio de emails
Posted:
Fri Mar 04, 2022 12:51 pm
by hmpaquito
Gracia Sr. Joao. Ya lo he resuelto con Thunderbird