Cannot Figure Out This VBA

Not open for further replies.


New Member
Outlook version
Email Account
Exchange Server
Hello there - I cannot figure out how to use this VBA. It is actually a "ready-to-use" script that I took from offline but I am unsure how to use it as I am a learning, VBA-Novice.

Please help me if any of you know... Thank you!

Private WithEvents m_Items As Outlook.Items

Private Sub Application_Startup()
Set m_Items = Application.Session.GetDefaultFolder(olFolderCalendar).Items
End Sub

Private Sub m_Items_ItemAdd(ByVal Item As Object)
If TypeOf Item Is Outlook.AppointmentItem Then
AddContactInfo Item
End If
End Sub

Private Sub m_Items_ItemChange(ByVal Item As Object)
If TypeOf Item Is Outlook.AppointmentItem Then
AddContactInfo Item
End If
End Sub

Private Sub AddContactInfo(Appt As Outlook.AppointmentItem)
Dim Link As Outlook.Link
Dim Contact As Outlook.ContactItem
Dim Adr As String
Static Busy As Boolean

If Busy Then Exit Sub Else Busy = True

If Appt.Location = "" Then
If Appt.Links.Count Then
Set Link = Appt.Links(1)
If Not Link.Item Is Nothing Then
Set Contact = Link.Item
If Not Contact Is Nothing Then
Adr = Contact.MailingAddress
Adr = Replace(Adr, vbCrLf, ", ")
If Right$(Adr, 2) = ", " Then
Adr = Left$(Adr, Len(Adr) - 2)
End If
Appt.Location = Adr
End If
End If
End If
End If
Busy = False
End Sub
This code will do exactly what I need and I cannot find another with exactly the same functions.
You need to put it in ThisOutlookSession -
Private Sub Application_Startup() means its an auto start macro and those need to be in ThisOutlookSession.
If you need help using the VBEditor, see How to use Outlook's VBA Editor
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A Cannot Figure Out One Thing on VBA Outlook VBA and Custom Forms 2
T Cannot open .pst file Using Outlook 0
D Outlook 365 Outlook Message "Cannot be sent because the message has changed" Using Outlook 0
P Cannot understand how to use Favorites Using Outlook 4
U When opening shared Calendar "The set of folders cannot be opened" Using Outlook 0
J Cannot edit a calendar event received as an invitation Using Outlook 2
humility36 Cannot move emails to archive - 440 error Outlook VBA and Custom Forms 1
L I Cannot Sign Into My Outlook Account? Outlook VBA and Custom Forms 0
CWM330 This rule has a condition that the server cannot process? Using Outlook 1
U Outlook on the iPhone cannot approve filtered Emails Using Outlook 0
Horsepower Cannot delete gmail in iPhone Outlook outbox Using Outlook 1
K Daily Task List Minimized Cannot Display Using Outlook 5
O The linked image cannot be displayed Using Outlook 2
C "The linked image cannot be displayed. The file may have been moved, renamed, or deleted. Verify that the link points to the correct file location" Using Outlook 1
B IMAP server rejects sent email - cannot deliver messages Using Outlook 2
T Outlook 2021 Cannot open attachments Outlook DeskTop 2021 Using Outlook 0
S Cannot print Contacts Using Outlook 7
J VBA Cannot programmatically input or change Value for User Defined field Using Outlook 1
T Outlook 2010 Cannot edit Calendar entries in OL 2010. Using Outlook 1
O Cannot expand the folder. The set of folders cannot be opened. You do not have permission to log on. Using Outlook 1
N Item cannot be saved because it was modified by another user or window, and, Item could not be moved... Using Outlook 0
D Cannot populate certain UserProperties in Outlook from Excel Outlook VBA and Custom Forms 2
D Outlook 2016 64bit, Cannot Save in 'HTML', format Using Outlook 1
D cannot view emails in View pane (in the right pane), I only see one line or nothing Using Outlook 21
M Cannot read the calendar Using Outlook 9
T The Linked Image Cannot Be Displayed in Outlook Using Outlook 7
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 4
S Custom Field Cannot Be Displayed In Views Outlook VBA and Custom Forms 2
G Cannot Move Autocomplete File to New Computer Using Outlook 15
rubaboo The vew cannot be found Outlook VBA and Custom Forms 0
A Cannot copy this folder because it may contain private items Using Outlook 0
L Cannot open PST file for first session each day Using Outlook 6
David in Mississippi New (Feb 2020) install of Outlook 365 - Cannot specify PST for different accounts Using Outlook 0
Marc2019 Need help please! Cannot Setup my outlook email account on my Mac Outlook 2011 Using accounts in Outlook 2
noshairwan Registry cannot be found, Outlook Security Using Outlook 2
Marc2019 Cannot input Vietnamese Characters on my MSOutlook 2016 in Windows 7 Using Outlook 0
T Cannot remove needless PST Using Outlook 1
Marc2019 Cannot setup Outlook Account on Mac Os 10.6.8 Using Outlook 3
N pst files are recreating automaticaly and cannot be deleted Using Outlook 5
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
T "cannot find the calendar folder for this item" - calendar items stuck in outbox Using Outlook 0
A Created a new user account and the local account cannot see email Using Outlook 3
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
T Cannot connect to main BT email account, sub accts okay Using Outlook 0
O The page that you are trying to access cannot be loaded. Using Outlook 0
M Daily Task List Minimized Cannot Display Using Outlook 2
geofferyh Cannot get Macro to SAVE more than one message attachment??? Outlook VBA and Custom Forms 5
DariTrevino MIcrosoft Outlook PST file cannot repair Using Outlook 1
B One email cannot be sent or received (but leaves outbox!) Using Outlook 1
C Outlook 2016 cannot delete, email showing in root Exchange Server Administration 5

Similar threads