Prev: Union query
Next: Economical Auction Site
From: EA4AYW on 23 Dec 2009 14:12
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 = "pepe(a)elcorreo.com"

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..


From: Jackie L on 23 Dec 2009 15:02
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.



"EA4AYW" wrote:

> 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 aadir 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 = "pepe(a)elcorreo.com"
>
> 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..
>
>
 | 
Pages: 1
Prev: Union query
Next: Economical Auction Site