Reply to thread

Message

<blockquote data-quote="cmhoz" data-source="post: 403459" data-attributes="member: 31774">Excellent....I tried the VBA solution and it works perfectly with Mail, but as there is not way to auto add the recipient or subject, I would like to try the AppleScript solution.I've tried to make a small change to the code so it calls Mail instead of Entourage... but I get this error:&nbsp; &quot;Invalid procedure call or argument.&quot;This is the code:[CODE]Public Sub MailSendMail(theBook As Workbook, _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; recipient As String, subject As String)&nbsp; &nbsp; &nbsp; &nbsp; Dim mailStr As String&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mailStr = _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;Tell application &quot;&quot;Mail&quot;&quot;&quot; &amp; vbNewLine &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;make new outgoing message with properties&quot; &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;{recipient:&quot;&quot;&quot; &amp; recipient &amp; &quot;&quot;&quot;,subject:&quot;&quot;&quot; &amp; subject &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;&quot;&quot;,attachment:&quot;&quot;&quot; &amp; theBook.FullName &amp; &quot;&quot;&quot;}&quot; &amp; vbNewLine _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &amp; &quot;move the result to out box folder&quot; &amp; vbNewLine &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;send&quot; &amp; vbNewLine &amp; _&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &quot;end tell&quot;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MacScript mailStr&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Sub&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Sub sendit()&nbsp; &nbsp; &nbsp; &nbsp; MailSendMail ThisWorkbook, &quot;jodcmh@bigpond.net.au&quot;, &quot;this is the subject&quot;&nbsp; &nbsp; End Sub[/CODE]I'm guessing that's because there the script for Mail is slightly different than that for Entourage... but I'm not sure where I need to change things.&nbsp; I've tried running the script in script editor and it fails at 'move to out box folder'.&nbsp; If I remove this, it appears to run, but no mail item is actually sent.Thanks for any help... AppleScript is brand new to me.</blockquote>

[QUOTE="cmhoz, post: 403459, member: 31774"] Excellent.... I tried the VBA solution and it works perfectly with Mail, but as there is not way to auto add the recipient or subject, I would like to try the AppleScript solution. I've tried to make a small change to the code so it calls Mail instead of Entourage... but I get this error: "Invalid procedure call or argument." This is the code: [CODE]Public Sub MailSendMail(theBook As Workbook, _ recipient As String, subject As String) Dim mailStr As String mailStr = _ "Tell application ""Mail""" & vbNewLine & _ "make new outgoing message with properties" & _ "{recipient:""" & recipient & """,subject:""" & subject & _ """,attachment:""" & theBook.FullName & """}" & vbNewLine _ & "move the result to out box folder" & vbNewLine & _ "send" & vbNewLine & _ "end tell" MacScript mailStr End Sub Sub sendit() MailSendMail ThisWorkbook, "jodcmh@bigpond.net.au", "this is the subject" End Sub[/CODE] I'm guessing that's because there the script for Mail is slightly different than that for Entourage... but I'm not sure where I need to change things. I've tried running the script in script editor and it fails at 'move to out box folder'. If I remove this, it appears to run, but no mail item is actually sent. Thanks for any help... AppleScript is brand new to me. [/QUOTE]

Verification

What is Apple's smallest desktop computer called?