Enviar correo electrónico desde access a través de ibm lotus inotes
Hola a todos.
Estoy realizando una base de datos en Access 2007 para mi trabajo. Mis jefes quieren que, desde un formulario de Access, pulsando un botón de comando, se envíe un email a un destinatario en concreto y desde una cuenta de correo concreta. Gracias a la cortesía de neckito, que me respondió a una pregunta como esta que hice hace mucho tiempo, conseguí probar el siguiente código en mi ordenador y funcionó perfectamente:
Private sub enviarmail_click()
On Error GoTo sol_err
Const miMail As String = "[email protected]"
Const miPass As String = "ppp17"
Const miSmtp As String = "smtp.gmail.com"
On Error GoTo sol_err
Dim elAsunto As String, elMsg As String
Dim mailA As String
elAsunto = "Pedido Incompleto"
elMsg = Nz(Me.paraemail.Value, "") ' en el formulario hay un campo llamado "para email, que recoge el texto que debe aparecer en el correo electrónico.
mailA = Nz(Me.correoe.Value, "") ' y otro, "correoe", que recoge la dirección a la que quiero enviar dicho correo.
If mailA = "" Then
MsgBox "¡Debe existir un destinatario!", vbCritical, "SIN DESTINATARIO"
Exit Sub
End If
Dim cdoConfig
Dim msgOne
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = miSmtp
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = miMail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = miPass
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Update
End With
Set msgOne = CreateObject("CDO.Message")
Set msgOne.Configuration = cdoConfig
msgOne.To = mailA
msgOne.FROM = miMail
msgOne.Subject = elAsunto
msgOne.TextBody = elMsg
msgOne.SEND
MsgBox "Mensaje enviado con éxito", vbInformation, "CORRECTO"
Salida:
Exit Sub
sol_err:
MsgBox Err.Number & ": " & Err.Description
Resume Salida
End Sub
El problema es que, en mi trabajo, se utiliza IBM Lotus Notes (concretamente, lo que pone al abrir el correo es IBM Lotus iNotes) y claro, este código no me sirve. Para complicar más las cosas, cuando pregunté por el puerto de salida y el servidor de correo saliente, me dijeron que esos datos no podían facilitármelos. No se si es que los desconocen o es que simplemente no pueden darlos por algún otro motivo. Para más complicación, cuando busco en el código Herramientas-Referencias, no encuentro ninguna referencia a Lotus ni a iNotes, con lo cual no sé si tengo algún cliente Lotus instalado en el ordenador o si los correos se envían a través de una webmail (por no saber, no sé si esto que he escrito es correcto o es una perogrullada :P)
Si pudierais aclararme un poco todo este galimatías, me sería de gran ayuda, pues ya llevo tiempo intentando acabar la base de datos y no hay forma de conseguirlo y, claro, mis jefes ya se están poniendo nerviosos. He visto distintos códigos por la red, pero, al no entender cómo funcionan ni cómo se usan, no he sido capaz de adaptarlos... Os pido que, si podeis ayudarme, tengais en cuenta que no tengo ni idea, así que os agradecería que me lo "explicaseis para tontos" (la verdad, me siento bastante torpe) pues en caso contrario, no sabría cómo seguir vuestras indicaciones. Sé que es un gran esfuerzo el que solicito de vosotros, pero no imagino cómo puedo hacerlo sin ayuda...
Siento no poder ser más explicito, pero mis jefes no están de acuerdo con que consulte en foros (ni que mi empresa fuese una Agencia Secreta...) y por ello no me permiten poner datos concretos...
No obstante, si necesitáis que os aclare algún punto de lo que os estoy preguntando (lo cual sería bastante lógico, ya que me parece que me he explicado bastante mal) os ruego que me lo hagáis saber e intentaré explicarme mejor...
Muchísimas gracias a todos por vuestra atención y ayuda.
