Thanks, but this method fails at the line:

Set oMAIL = oOL.CreateItem(olMailItem)

Any ideas?

"papou" wrote:

Hi
Dim oOL As Object
Dim oMAIL As Object
Set oOL = CreateObject("Outlook.Application")
Set oMAIL = oOL.CreateItem(olMailItem)

HTH
Cordially
Pascal


"XP" a écrit dans le message de news:
...
I'm trying to automate Outlook from XL to generate an email using LATE
BINDING. I have the following code so far, BUT it breaks when trying to
create a MailItem:

Dim oOL As Object
Dim oMAIL As Object
Set oOL = CreateObject("Outlook.Application")
Set oMAIL = oOL.CreateObject("Outlook.MailItem")

Can someone please correct my code so this will run correctly?

Thanks much in advance.