auto send email when meeting closes from a shared calendar only

Not open for further replies.


New Member
Outlook version
Outlook 2013 64 bit
Email Account
Exchange Server

I have a need to send an automatic email to the person that set up the meeting in Outlook when the meeting ends. It would be great if it also sent a copy to an administrator email as well. This is on a shared calendar only, so not sure how the outlook session needs to be set up?

So far I have the following...

Private Sub Application_Reminder(ByVal Item As Object)
Dim NewMail As MailItem
Dim objAtts As Recipients
Dim obj As Object
Dim strAddrs As String

If TypeOf Item Is AppointmentItem And Item.Recipients.Count Then
Set objAtts = Item.Recipients

'Extract the attendees who have accepted this meeting
For Each obj In objAtts
If obj.MeetingResponseStatus = olResponseAccepted Then
strAddrs = strAddrs & obj.Address
End If

Set NewMail = Outlook.Application.CreateItem(olMailItem)
With NewMail
.To = strAddrs
.Subject = "Return notification - please arrange the return of loan item(s)"
.HTMLBody = "<HTML><BODY> When: " & Item.Start & " - " & Item.End & "</HTML></BODY>" & "<HTML><BODY>Where: " & Item.Location & "</HTML></BODY>" & "<HTML><BODY>Details: " & Item.Body & "</HTML></BODY>"
.Attachments.Add Item
.DeferredDeliveryTime = Item.End
End With
End If
End Sub

This creates an email, but at the start of the meeting and not the end, it also doesn't send it automatically as I would need to press the send button. I have only tested it on my local calendar and not a shared calendar.

Thanks in advance if you can help...

There´s no event in Outlook that tells you when a meeting has ended. For a full automatic process you´d need to look at intervals into the calendar, find all meeting items, decide, which one has ended, and which of the ended ones hasn´t yet sent the email. That´s a lot of work for a beginner.

Maybe it´s an option for you to manually select a meeting in the calendar, then start the shown function manually. For that you´d just need to remove the Item As Object argument. Instead declare the variable in the second line this way::
Dim Item As Object
In order to set the variable to the currently selected item of a folder add this before the If Typeof line:
set item=application.activeexplorer.selection(1)
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
Z Re: Auto Print email and word attachments on send Outlook VBA and Custom Forms 1
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
B Auto scan/send Outlook VBA and Custom Forms 5
A Auto send-receive in Outlook not working Using Outlook 6
D Emails stuck in Outbox, not receiving emails, Outlook 2010 auto send/receive Using Outlook 4
T Outlook 2010 manually actioning of send and receive? remove auto actioning Using Outlook 4
M Outlook 365 VBA Auto-Forward Only the first of Duplicate Emails Outlook VBA and Custom Forms 2
D Auto Remove [EXTERNAL] from Subject + ConversationTopic (WITHOUT Redemption plug-in) Outlook VBA and Custom Forms 2
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
nmanikrishnan Auto-reply from default account Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
V Auto-complete stopped working Using Outlook 4
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
R Auto Forwarding with different "From" Outlook VBA and Custom Forms 0
P auto-complete is hopelessly broken Using Outlook 0
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
V Auto-Submitted: auto-replied in header Using Outlook 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 3
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 16
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
R How Do I insert images in and Auto Reply Using Outlook 3

Similar threads