send to email

[EA4AYW]

Hola a todos.
tengo un problema para enviar email desde access.
dispongo de este codigo y lo ejecuto desde un boton del formulario.

------------------------------------------------------------------
'Es necesario añadir la refeerncia Microsoft Outlook Library
'(herramientas/referencias) <-- OJO
Dim Email As String
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = Me.Email
.CC = ""
.BCC = ""
.Subject = "Asunto."
.BodyFormat = olFormatHTML
.Body = "cuerpo del mensaje "
'Se pueden adjuntar ficheros
.Display 'tambien se puede usar .Send y lo situa en la bandeja de
salida
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
-----------------------------------------------------------------

Necesito enviarlo desde una cuenta especifica ya que dispongo de varias en
el outlook.
y no me es posible.
Me facilitaron el codigo siguiente:

objmessage.FROM = "(e-mail address removed)"

pero me da error cuando le doy ejecutar se me para en dicho codigo y no
continua.

Me estoy volviendo loco, y por mas que miro, no encuentro la solucion, y
parece ser que funciona, pero a mi no.

Teneis alguna idea..

Gracias..

 

[Jackie L]

Es posible cambiar el "From" en Outlook antes de enviarlo? Siempre va a usar
la cuenta que dice "send from this account by default". Puede encontrarlo en
Outlook a Tools - Account Settings.

Lo siento que no puedo ayudar mas. Tengo muchas programas en Access que
envian por Outlook pero no tienen que cambiar la cuenta.