![]() ![]() Mileage = Nz(Me.OrderNumber, vbNullString)Įnd If ' Release the Outlook object variables. Subject = Nz(Me.Delivery & " " & Me.OrderNumber & " " & Me.Customer & " " & Me.NumberofDoors, vbNullString) Set olfolder = olapp.GetNamespace("mapi").PickFolder Set olapp = GetObject(, "Outlook.Application") ' Outlook is already open-use this method Set olapp = CreateObject("Outlook.Application") ' Outlook is not open, create a new instance If isAppThere("Outlook.Application") = False Then ' Use late binding to avoid the "Reference" issueĭim olapp As Object ' Outlook.Application MsgBox "This appointment has already been added to Microsoft Outlook", vbCritical ![]()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |