Sendin email with Excel macros
 

Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

Do you need to have a From line as I think it populates it with the
default user anyway.
Don't forget to set your OutApp = nothing at the end also.

FunkySquid

Maurizio wrote:
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

Not possible with Outlook

With CDO you can do it
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ps.com...
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

I've used:

..SentOnBehalfOfName = "

It works!!!!!

Regard Maurizio

Ron de Bruin ha scritto:

Not possible with Outlook

With CDO you can do it
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ps.com...
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

Hi Maurizio

You are correct



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ups.com...
I've used:

.SentOnBehalfOfName = "

It works!!!!!

Regard Maurizio

Ron de Bruin ha scritto:

Not possible with Outlook

With CDO you can do it
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ps.com...
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

Some more that I not use myself

SentOnBehalfOfName
SenderName
ReceivedByName
ReceivedOnBehalfOfName
ReplyRecipientNames
SenderEmailAddress


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message ...
Hi Maurizio

You are correct



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ups.com...
I've used:

.SentOnBehalfOfName = "

It works!!!!!

Regard Maurizio

Ron de Bruin ha scritto:

Not possible with Outlook

With CDO you can do it
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ps.com...
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing

Sendin email with Excel macros
 

Another tip

'Change Sender name and reply address
'The receiver can see the original mail address in the properties if he want
.SentOnBehalfOfName = """SenderName"" "


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Ron de Bruin" wrote in message ...
Hi Maurizio

You are correct



--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ups.com...
I've used:

.SentOnBehalfOfName = "

It works!!!!!

Regard Maurizio

Ron de Bruin ha scritto:

Not possible with Outlook

With CDO you can do it
http://www.rondebruin.nl/cdo.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl



"Maurizio" wrote in message ps.com...
Hi, I use this code to send multiple email, but I get a "run time error
438" with .From field, as if it isn't supported.

Does anyone known the solution?


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.From = "
.To = IndirizzoEmail
.Subject = Oggetto
.Body = TestoEmail
.OriginatorDeliveryReportRequested = False
.Display
End With
Set OutMail = Nothing