passing variable to vbscript for outlook

[chaos7692]

I know zip about vb but am attempting to automate an email using outlook. I have pulled several examples of code, and found 1 that works, except I cant seem to get it to accept a variable in the message body:

let>var1="sample variable"
VBSTART
Sub SendOutlookMail

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(0)
' // Option Values for Outlook Object CreateItem( ) are:
' // 0=MailItem, 1=AppointmentItem, 2=ContactItem, 3=TaskItem
' // 4=JournalItem, 5=NoteItem, 6=PostItem
objMailItem.To = "[email protected]" ' This is the primary recipient
objMailItem.Subject = "test" ' This is the Subject
objMailItem.Body = ("%var1%") ' This is the Email message


Set objMailer = objOutlook.GetNameSpace("MAPI")
objMailer.Logon "Outlook", "Actual Password" 'Logon to Mailer
objMailItem.Send ' send method
' // Use Save method vs. Send to put email in Drafts Folder vs. Outbox/Sending
' // objMailItem.Save ' save method
objMailer.Logoff ' Logoff from Mailer

End Sub
'=======================================
VBEND

VBRun>SendOutlookMail


please help, thank you.

[hagchr]

I think you need to pass the variable in the sub call (see x in VB part and extra parameter in VBRun call).


VBSTART
Sub SendOutlookMail(x)

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(0)
' // Option Values for Outlook Object CreateItem( ) are:
' // 0=MailItem, 1=AppointmentItem, 2=ContactItem, 3=TaskItem
' // 4=JournalItem, 5=NoteItem, 6=PostItem
objMailItem.To = "[email protected]" ' This is the primary recipient
objMailItem.Subject = "test" ' This is the Subject
objMailItem.Body = x ' This is the Email message


Set objMailer = objOutlook.GetNameSpace("MAPI")
objMailer.Logon "Outlook", "Actual Password" 'Logon to Mailer
objMailItem.Send ' send method
' // Use Save method vs. Send to put email in Drafts Folder vs. Outbox/Sending
' // objMailItem.Save ' save method
objMailer.Logoff ' Logoff from Mailer

End Sub
'=======================================
VBEND

let>var1="sample variable"
VBRun>SendOutlookMail,%var1%

[chaos7692]

thank you for the reply.

I have seen a couple of examples of this, where the variable is called in vbrun, and I've tried a couple variations to no effect. This one doesn't work either, I get errors on the line assigning the variable and the vbrun line.

[Marcus Tettmar]

Here's a simple example:

Code: Select all

VBSTART
  Sub MySub(msg)
    MsgBox msg
  End Sub
VBEND

Let>local_var=Hello World
VBRun>MySub,local_var

Change the last part of hagchr's example to:

Let>var1=sample variable
VBRun>SendOutlookMail,var1