Enviar informe desde access con correo lotus
He encontrado ese código a una pregunta que contestaste anteriormente.
¿Es posible hacer eso mismo con un correo de empresa que utiliza el lotus notes? He probado cambiando el smtp. Gmail.com el correo y contraseña pero no funciona. ¿Qué hago mal?
Private Sub Comando12_Click()
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = " [email protected] "
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = " xxxxxxxxx "
.Update
End With
' build email parts 'Construir piezas de correo electrónico
With cdomsg
.To = Me.E_mail
.From = Me.Correo
.Subject = " Asistencia del mes de Mayo "
.TextBody = " 21705/11 "
.Send
End With
Set cdomsg = Nothing
End Sub
1 respuesta
Revisa estos links:
En este segundo caso lo único que debes hacer es cambiar las credenciales, el usuario., el servidor de correo y el puerto pro el cual sale el email, por lo general es el 25, en lotus notes nos e si sea ese u otro, eso debes preguntarlo al Administrador del servidor de correos, y de una debería funcionar.
