Type Mismatch using .SendUsingAccount in a Mail item

[Paul Alford]

Hi,

I am getting a VBA type mismatch error in Excel 2007 with the following code at the line .SendUsingAccount and I can't seem to find a solution to the problem. It's driving me nuts. Without this line emails are created and sent perfectly from the default mail account in Outlook 2007, but when I add the line of code to select a different account it keels over.

Below is the code.

Can anyone point me in the right direction please?

Dim AccountToSendFrom As String
AccountToSendFrom = "john.doe@acme.com"

With MItem
        .To = IntEmail
        .Subject = Msg2
        .Body = Msg
        .SendUsingAccount = AccountToSendFrom
End With

 

[Paul Alford]

After a lot of digging around I found this buried in a forum. The bold line executes, but the email still sends from the default mail account.

So now I have the following code - any ideas?

Thanks.

Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)

With MItem
        .To = IntEmail
        .Subject = Msg2
        .Body = Msg
        .SendUsingAccount = OutlookNamespace.Accounts("Account Name")

End With