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

1 Respuesta

566.650 pts. Desarrollador de aplicaciones en plataforma

Revisa estos links:

http://www.lawebdelprogramador.com/foros/Lotus_Notes/999555-LOTUS_NOTE_VB.NET_-_VARIOS_DESTINARIOS_CON_COPIA.html

http://geeks.ms/blogs/jalarcon/archive/2007/06/23/c-243-mo-enviar-correo-electr-243-nico-por-c-243-digo-usando-cuentas-de-gmail.aspx

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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas