#1
|
|||
|
|||
Send Outlook appointment from Excel
Hi,
I'm stacked with the following issue: I have some references, which creates the outlook appointment, but I am not able so send it. It only saves it on my Outlook calendar. In fact, I would like just to send it, but not copy to my calendar, or send it, but delete from my calendar after, without sending notification. Would you be so kind to help me with this? The code is the following: Sub AddAppointments() Dim myoutlook As Object ' Outlook.Application Dim myapt As Object ' Outlook.AppointmentItem ' Create the Outlook session Set myoutlook = CreateObject("Outlook.Application") Set myapt = myoutlook.CreateItem(1) ' Set the appointment properties With myapt .Subject = Range("H6") .Start = Range("I7").Text & " " & Range("J7").Text .End = Range("I8").Text & " " & Range("J8").Text '.MeetingStatus = olMeeting ' not necessary if recipients are email addresses .Recipients.ResolveAll .AllDayEvent = False .ReminderMinutesBeforeStart = 15 .Body = Range("H6") .RequiredAttendees = Range("H5") .Location = "at your desk" .DISPLAY .send End With End Sub Thanks in advance. |
Tags |
appointments, vba excel |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Outlook 2010 Alarm on Appointment | babypink | Outlook | 0 | 07-01-2012 07:49 AM |
Have Excel automatically send an appointment to Outlook | paulw793 | Excel | 1 | 09-12-2011 11:04 PM |
How do I delete an Outlook appointment item with VBA? | Joe Patrick | Outlook | 0 | 07-14-2011 06:56 AM |
Outlook Appointment Query | prashantkedare | Outlook | 0 | 05-18-2011 02:40 AM |
Outlook 2003 Appointment Issues | indyagent | Outlook | 0 | 04-19-2007 02:19 PM |