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
Envio de emails
-
cmsoft
- Posts: 1297
- Joined: Wed Nov 16, 2005 9:14 pm
- Location: Mercedes - Bs As. Argentina
- Been thanked: 2 times
Re: Envio de emails
Hola, con este código envío con gmail.
Por ahí te puede servir.
Por ahí te puede servir.
Code: Select all | Expand
*-------------------------------------------------*
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
Re: Envio de emails
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
-
cmsoft
- Posts: 1297
- Joined: Wed Nov 16, 2005 9:14 pm
- Location: Mercedes - Bs As. Argentina
- Been thanked: 2 times
Re: Envio de emails
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
-
karinha
- Posts: 7935
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
- Been thanked: 3 times
- Contact:
Re: Envio de emails
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