Missing Outlook type library Excel 2011 for Mac

[briano216]

Hi

I'm a teacher and I'm hoping to be able to create some vba code in Excel so that parents can be automatically emailed with information. But when my code attempts to create an Outlook.Application object I get the following error message:
"User defined type not defined"

I have gone to references looking for a type library for outlook but there doesn't seem to be one. The code I'm using is below:

Dim OutMail As Object
Dim OutApp As Outlook.Application
Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = Sheets("Parent Data").Range("E4")
.CC = ""
.BCC = ""
.Subject = Sheets("Parent Data").Range("A2")
.Body = Sheets("Parent Data").Range("A3")
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing

Can anyone help me?
Thanks
Briano216

 

[briano216]

I found the answer out myself from this webpage:
http://host171.hostmonster.com/pipe...fficeformachelp.com/2010-November/000069.html

I tested it and it works brilliantly. Here is my code now:


Dim pstrAppleScript As String
Dim pstrReturn As String

pstrAppleScript = "tell application ""Microsoft Outlook""" & Chr(13) & _
"set theAccount to pop account ""jdoe_internode""" & Chr(13) & _
"tell drafts of theAccount" & Chr(13) & _
"set tmp to make new outgoing message with properties {subject:""subject"", content:""body"", account:theAccount}" & Chr(13) & _
"end tell" & Chr(13) & _
"make new to recipient at tmp with properties {email address:{name:""John Doe"", address:""johndoe@abc.au""}}" & Chr(13) & _
"make new cc recipient at tmp with properties {email address:{name:""Jane Doe"", address:""janedoe@abc.com""}}" & Chr(13) & _
"send tmp" & Chr(13) & _
"end tell"
MacScript (pstrAppleScript)