J
jjadejhk
Guest
I could only find the visual basic code for sending recurring emails with Outlook Desktop version. Would the code work on Web Outlook Live emails?
the vba bellow:
Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Dim objApp As AppointmentItem Dim Att As Attachment Dim tmpFolder As String Dim filePath As String Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> IPM.Appointment Then Exit Sub End If
If Item.Categories <> Recurring Email Then Exit Sub End If
tmpFolder = Environ(TEMP)
For Each Att In Item.Attachments filePath = tmpFolder & \ & Att.FileName Att.SaveAsFile (filePath) objMsg.Attachments.Add filePath Kill filePath Next Att
objMsg.To = Item.Location objMsg.Subject = Item.Subject objMsg.Body = Item.Body objMsg.Send Set objMsg = Nothing End Sub
Thanks,
Continue reading...
the vba bellow:
Private Sub Application_Reminder(ByVal Item As Object) Dim objMsg As MailItem Dim objApp As AppointmentItem Dim Att As Attachment Dim tmpFolder As String Dim filePath As String Set objMsg = Application.CreateItem(olMailItem)
If Item.MessageClass <> IPM.Appointment Then Exit Sub End If
If Item.Categories <> Recurring Email Then Exit Sub End If
tmpFolder = Environ(TEMP)
For Each Att In Item.Attachments filePath = tmpFolder & \ & Att.FileName Att.SaveAsFile (filePath) objMsg.Attachments.Add filePath Kill filePath Next Att
objMsg.To = Item.Location objMsg.Subject = Item.Subject objMsg.Body = Item.Body objMsg.Send Set objMsg = Nothing End Sub
Thanks,
Continue reading...