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
FiveTech Software tech support forums
www.FiveTechSoft.com
Envio de emails
6 posts • Page 1 of 1
Envio de emails
by hmpaquito » Thu Mar 03, 2022 8:13 pm
- hmpaquito
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
Re: Envio de emails
by cmsoft » Fri Mar 04, 2022 1:00 am
Hola, con este código envío con gmail.
Por ahí te puede servir.
Por ahí te puede servir.
- Code: Select all Expand view RUN
*-------------------------------------------------*
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: 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)
// 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
-
cmsoft - Posts: 1292
- Joined: Wed Nov 16, 2005 9:14 pm
- Location: Mercedes - Bs As. Argentina
Re: Envio de emails
by hmpaquito » Fri Mar 04, 2022 7: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
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
- hmpaquito
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
Re: Envio de emails
by cmsoft » 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
La verdad de que si el proveedor de internet puede afectar no lo se
-
cmsoft - Posts: 1292
- Joined: Wed Nov 16, 2005 9:14 pm
- Location: Mercedes - Bs As. Argentina
Re: Envio de emails
by karinha » Fri Mar 04, 2022 11:51 am
Buén dia, use el mio RMAIL.PRG, funciona perfecto.
https://mega.nz/file/FQFWgIDT#kvRtIHIesRpTw9I8CxJenTRikG4VXM0t_7J8qVQsOX8
Regards, saludos.
https://mega.nz/file/FQFWgIDT#kvRtIHIesRpTw9I8CxJenTRikG4VXM0t_7J8qVQsOX8
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7835
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: Envio de emails
by hmpaquito » Fri Mar 04, 2022 12:51 pm
Gracia Sr. Joao. Ya lo he resuelto con Thunderbird
- hmpaquito
- Posts: 1482
- Joined: Thu Oct 30, 2008 2:37 pm
6 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 45 guests