Recurring email and attachments
 

I have been using various help tools and was able to create a script that
creates a recurring email that meets most of my needs. I am looking to add
an attachment to that email. I have looked at several posts on this help and
can't seem to make any of them work. Can you help incorporate this into my
script. Current script is posted below.

Sub Item_PropertyChange (ByVal Name)
Select Case Name
Case "Status"
if Item.Status = 2 then '2 = Completed
Set NewItem = Application.CreateItem(0)
NewItem.To = "srdh_everyone@XXX"
NewItem.Recipients.ResolveAll
NewItem.Subject = "Payroll Reminder"
NewItem.Body = "To all employees: " & vbCrLf & " " & vbCrLf & "The pay
period is coming to a close. Please use the attached form to account for
your Community Outreach / Social Accountability hours as they pertain to this
pay period. The completed form should be submitted to your Ceridian
Timekeeper for input into the system."
NewItem.Display
End IF
End Select
End Sub

Thanks for your help.

Recurring email and attachments
 

' previous code
NewItem.Save
NewItem.Attachments.Add "string path to the file to attach"

NewItem.Display


--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"JenniferCHW" wrote in message
...
I have been using various help tools and was able to create a script that
creates a recurring email that meets most of my needs. I am looking to
add
an attachment to that email. I have looked at several posts on this help
and
can't seem to make any of them work. Can you help incorporate this into
my
script. Current script is posted below.

Sub Item_PropertyChange (ByVal Name)
Select Case Name
Case "Status"
if Item.Status = 2 then '2 = Completed
Set NewItem = Application.CreateItem(0)
NewItem.To = "srdh_everyone@XXX"
NewItem.Recipients.ResolveAll
NewItem.Subject = "Payroll Reminder"
NewItem.Body = "To all employees: " & vbCrLf & " " & vbCrLf & "The pay
period is coming to a close. Please use the attached form to account for
your Community Outreach / Social Accountability hours as they pertain to
this
pay period. The completed form should be submitted to your Ceridian
Timekeeper for input into the system."
NewItem.Display
End IF
End Select
End Sub

Thanks for your help.