Qlik Community

QlikView App Dev

Discussion Board for collaboration related to QlikView App Development.

Announcements
Read about the latest Qlik Community enhancements on the Community News blog!
cancel
Showing results for 
Search instead for 
Did you mean: 
dagomezl
Creator III
Creator III

Configurar correo preferencias de usuario

Buenas tarddes, quería saber si alguien a configurado un correo de gmail en Qlikview para el envió de alertas, he probado con estos datos y no me ha servido...

servidor:

     Dirección : smtp.gmail.com (Primero probe este)

                      smtp.googlemail.com (luego este)

     puerto: 465

     Método de autenticación: AUTH PLAIN

el error que me sale es el siguiente:

     No se pudo conectar al Servidor

     ültima Respuesta: Unexpected SMTP Login response, Last Response:

Ya he probado varias configuraciones y no he podido, no se que me falta configurar, si alguno me peude ayudar con esto se lo agradezco

2 Replies
Not applicable

Estimado, ando por las mismas, pudiste configurarlo al final

anibal317
Contributor II
Contributor II

Estimado,

            Espero que te encuentres bien.

            Te adjunto el sub que me funciona a la perfeccion para mandar mail mediante macro ejecutada desde un botón.

Saludos

Jorge

SUB Mail

Dim objEmail

Const cdoSendUsingPort = 2  ' Send the message using SMTP

Const cdoBasicAuth = 1      ' Clear-text authentication

Const cdoTimeout = 60       ' Timeout for SMTP in seconds

     mailServer = "smtp.gmail.com"

     SMTPport = 465

     mailusername = "CORREO GMAIL"

     mailpassword = "CONTRASEÑA CORREO GMAIL"

     mailto = "DESTINATARIOS SEPARADOS POR COMA SI ES MAS DE UNO"

     mailSubject = "ASUNTO DEL MAIL"

     mailBody = "CUERPO DEL MENSAJE SI CONCATENAS CON CHR(13) PUEDES MANDAR MAS DE UNA LINEA"

     vPath="RUTA DEL ARCHIVO ADJUNTO"

Set objEmail = CreateObject("CDO.Message")

Set objConf = objEmail.Configuration

Set objFlds = objConf.Fields

With objFlds

     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = SMTPport

.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

     .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTimeout

.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasicAuth

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = mailusername

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = mailpassword

     .Update

End With

objEmail.To = mailto

objEmail.From = mailusername

objEmail.Subject = mailSubject

objEmail.TextBody = mailBody

objEmail.AddAttachment vPath

objEmail.Send

Set objFlds = Nothing

Set objConf = Nothing

Set objEmail = Nothing

'MsgBox "Se completo el envío de mail"

END sub