topic-41473

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Envio de emails

Posted: Thu Mar 03, 2022 08:13 PM

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Envio de emails

Posted: Fri Mar 04, 2022 01:00 AM

Hola, con este código envío con gmail.
Por ahí te puede servir.

Code (fw): Select all Collapse

*-------------------------------------------------*
Function EnviarPorMail(cdestino,cFile)
*-------------------------------------------------*

LOCAL loCfg, loMsg, oError, isError := .F., oRep, cHtml, i, cColor
local cSMTP := "smtp.gmail.com"
Local cPuerto := 465
Local cLogin := "mimail@gmail.com"
Local cPassword := "clavedeaplicacion" // Clave de aplicacion para aplicaciones menos seguras de gmail
local cRemitente:= "<Factura Electronica>"
Local cAsunto := "Envio de Factura electronica"
local cSSL := .T., cAuth := .T.

// Armado del HTML
cHTML :=''
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: <!-- w --><a class="postlink" href="http://www.webdelautor.com'">www.webdelautor.com'</a><!-- w --> + 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)
// Internet

loCfg := 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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Envio de emails

Posted: Fri Mar 04, 2022 07:58 AM

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Envio de emails

Posted: Fri Mar 04, 2022 10:40 AM

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

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

karinha

Posts: 8523