![]() |
If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
|
|||
|
|||
![]()
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. |
#2
|
|||
|
|||
![]()
' 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. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Recurring email | Deborah | Outlook - Calandaring | 2 | June 13th 07 10:19 PM |
email attachments. | PVR | Outlook Express | 2 | December 9th 06 04:05 AM |
.email attachments | Van R | Outlook Express | 9 | September 11th 06 11:30 AM |
Can't email .avi attachments with OE6 | Hallv5 | Outlook Express | 8 | May 30th 06 10:58 PM |
Set up an automatic email to be sent on a recurring meeting | Becky | Outlook - Calandaring | 1 | April 4th 06 01:13 PM |