Access - Outlook

Question

Dear members,

This is my first question, so excuse me if my English is a little bit poor. I developed an Access database. Within this database I send reports using a VBA script that starts an email in Microsoft Outlook Email and sends the report as a attachment to the email.

My question is if it's possible to send a message to a persons Microsoft Outlook Scheduler by using the persons email. We work in a closed network and everybody has his own Outlook Profile.

Is it's possible how can I write this down in a VBA script. The only assignment to a button i can find is Sendobject.

Hoping somebody can help me so i know if it's possible or not.

Regards,

Ton

Answer 1

If you are using Outlook Automation from Access to send the email you can also create an AppointmentItem and send that as well:

https://msdn.microsoft.com/en-us/vba/outlook-vba/articles/appointmentitem-send-method-outlook

---

Paul ~~~~ Microsoft MVP (Visual Basic)

Answer 2

Hello Ton,

To automate Outlook and create appointment items using Access, please add reference "Microsoft Outlook X.0 Object Library" (X depends on your Office version), then you could use the following code to create an appointment.

Sub CreateApp()
Dim olApp As Outlook.Application
Dim olAppItem As Outlook.AppointmentItem
Set olApp = CreateObject("Outlook.Application")
Set olAppItem = olApp.CreateItem(olAppointmentItem)
        With olAppItem
            .Subject = ""
            .Body = ""
            .ReminderSet = True
            .BusyStatus = olFree
            .RequiredAttendees = ""
            .Start = Today 'Date
            .End = Today
            .Save  ' .Send or .Display
        End With
Set olAppItem = Nothing
Set olApp = Nothing
End Sub

The following links would be helpful:

Automating Outlook from a Visual Basic Application.

Scheduling Appointments in Outlook From Excel

If you have any issues, please let me know.

Regards,

Celeste

---

MSDN Community Support
Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact [e-mail].