User-defined type not defined when sending email using Excel.

[amitcohen]

Hi

I have found this macro (http://www.slipstick.com/outlook/2010/multiple-accounts-and-the-default-account/)

'Sub Mail_small_Text_Change_Account()
Public Sub New_Mail()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem
 
For Each oAccount In Application.Session.Accounts
   If oAccount = "me@mywebsite.com" Then
      Set oMail = Application.CreateItem(olMailItem)
      oMail.SendUsingAccount = oAccount
      oMail.Display
   End If
Next
End Sub

This allow me to select the account for sending email other then the default one.

However, when running the macro, I'm getting the compile error: User-defined type not defined.

I did activated the 'Microsoft DAO n3.6 Object Library.

And yet, still giving me that error..


Any ideas how to solve this?

Thanks,
Amit.

 

[mvptomlinson]

Did you try adding a reference in the VB Editor to the Microsoft Outlook 12.0 Object Library too? (Might be 14.0 if you're also using Outlook 2010.)

 

[amitcohen]

Hi mvptomlinson
I have added the 'Microsoft Outlook 12.0 Object Library'

But now, its giving me the 'Run time error 438
Object doesn't support this property or method.
(VBA editor highlights the code row of:

For Each oAccount In Application.Session.Accounts

Maybe there is a problem with the whole macro..?

 

[mvptomlinson]

My guess is in this case "Application" is meant to refer to the Outlook application, not Excel. Unfortunately, the macro doesn't include any reference to the current or newly created outlook application. Usually you would use something like

Dim outApp as Outlook.Application
Set outApp = New Outlook.Application
...

And then replace "Application" with "outApp" (no quotes, of course).

 

[amitcohen]

Thanks mvptomlinson
I'll try modified the macro accordingly.

If it help for future users who might land on this thread,
The solution you gave, does work perfectly for the Ron de Bruin
macro http://www.rondebruin.nl/mail/account.htm


Thank you!

Amit.