Sending Appointments via Outlook

[Paul Thompson]

Can anyone offer some help here? My code generates the proper
appointment entry in Outlook (from Excel) but will not send it out to
the recipient. I've included the problem code snippet below. Really
appreciate any help! Thanks!

[snippet]
For n = 1 To ACChangeCount
With OutlookApp.CreateItem(olAppointmentItem)
.Subject = "`AC Change Multiple""
.Start = ACScheduledStart(n)
.End = ACScheduledEnd(n)
.ReminderMinutesBeforeStart = 15
.ReminderSet = True

If ACFYI(n) = True Then
.Location = "FYI ONLY"
Else
.Location = "Operations Performs Change"
End If

.Recipients.Add ("(e-mail address removed)")
.Recipients.ResolveAll
.Send
End With
Next n

Set OutlookApp = Nothing

 

[Ken Slovak - [MVP - Outlook]]

Does it help if you set .MeetingStatus = olMeeting?

 

[Paul Thompson]

Unfortunately, no. It records it fine in my calendar and appears to
be sending it out via Outlook. However, examining the appointment in
Outlook indicates that invitations have not been sent. :^(


Paul

 

[hotherps]

This is some VBA I use in Access to call Outlook objects, you might b
able to play around with it and get it to work by changing the fiel
references to Cell references:
Dim objMail As Outlook.MailItem
Dim strsql As String
Dim strMail As String


Set objMail = Outlook.CreateItem(olMailItem)

objMail.To = "Your recipient" 'or a cell reference

objMail.CC = "(e-mail address removed)"
objMail.Subject = "Your Sub ject here"
strMail = "Your long comments or what you want to appear in th
body."
objMail.Body = strMail
'objMail.Attachments.Add ("C:\YourFolder\Your Attachment.xls")

objMail.Display
'objMail.Send


You could comment out any lones that don't applay at first and easil
create a new message.
HT