"This will remove all attachments from this appointment, do you want to continue?", vbYesNo, "Are you sure?") "Total Size: " & GetApptItem.Size & " bytes" & vbCr & vbCr & _ IntResponse = MsgBox("Subject: " & GetApptItem.Subject & vbCr & _ MsgBox "This appointment has no attachments." Set GetApptItem = ActiveInspector.CurrentItem If TypeName(ActiveInspector.CurrentItem) = "AppointmentItem" Then MsgBox "Error an appointment is not selected." If TypeName((1)) = "AppointmentItem" Then Select Case TypeName(Application.ActiveWindow) Sub Delete_All_Attachments_From_Appointment() Select the affected attachment then run the macro.įor more detailed instructions on using VBA, see How to use Outlook's VBA Editor Use this code to remove all attachments from all instance of a recurring meeting.Ĭlick in the textbox area, press Ctrl+A to select all then Ctrl+C to copy. The field you want to modify is not valid for this type of item" Use VBA to delete attachments from a recurring meeting
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |