sending an outlook appointment to a recipient

[DMT Dave]

Hi Guy's i am hoping to be able to send an email contact an out appointment, this is what i have so far but this does nothing!, am I going about it the wrong way ?

Dim objNS As Outlook.NameSpaceDim objFolder As Outlook.MAPIFolder
Dim objRecip As Outlook.Recipient
Dim strName As String
Dim objAppt As Outlook.AppointmentItem
Dim objApp As Outlook.Application
Dim dte As Date, dte2 As Date


On Error Resume Next


strName = Me.txtEmailTo


Set objNS = objApp.GetNamespace("MAPI")
Set objRecip = objNS.CreateRecipient(strName)
Set objFolder = objNS.GetSharedDefaultFolder(objRecip, olFolderCalendar)
Set objAppt = objFolder.Items.Add
Set objAppt = objApp.CreateItem(olAppointmentItem)


dte = Format(Now(), "hh:nn")
dte2 = DateAdd("h", 2, dte)
With objAppt
            .Start = Format(Now(), "ddd-dd-mmm-yyyy")
            .End = DateAdd("d", 2, Format(Now(), "ddd-dd-mmm-yyyy"))
            .Location = Me.txtPostCode
            .Subject = "Your appointment"
            .MeetingStatus = olMeeting
            .ReminderMinutesBeforeStart = 20
            .BusyStatus = olBusy
            .RequiredAttendees = "Engineer"
            .Mileage = appointmentID
            .Recipients.ResolveAll
            .Save
            .Display
            End With
Set objApp = Nothing
Set objNS = Nothing
Set objFolder = Nothing
Set objRecip = Nothing

[Micron]

Are you using Option Explicit?
Where is appointmentID declared? Did you step through the code and watch your variables?

EDIT 1 and 2 - forgot to mention - when trouble shooting do NOT use On Error Resume Next or you'll never find out what's wrong.
When you turn off that line you'll probably see the problem.

[DMT Dave]

ahh ok Micron, thank you, will do some more testing

[DMT Dave]

Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim objRecip As Outlook.Recipient
Dim strName As String
Dim objAppt As Outlook.AppointmentItem
Dim objApp As Outlook.Application
Dim dte As Date, dte2 As Date




strName = Me.txtName

Set objNS = objApp.GetNamespace("MAPI") Object or variable not set
Set objRecip = objNS.CreateRecipient(strName)
Set objFolder = objNS.GetSharedDefaultFolder(objRecip, olFolderCalendar)
Set objAppt = objFolder.Items.Add
Set objAppt = objApp.CreateItem(olAppointmentItem)


dte = Format(Now(), "hh:nn")
dte2 = DateAdd("h", 2, dte)
With objAppt
.Start = Format(Now(), "ddd-dd-mmm-yyyy")
.End = DateAdd("d", 2, Format(Now(), "ddd-dd-mmm-yyyy"))
.Location = Me.txtPostCode
.Subject = "Your appointment for " & Me.txtRemovalDate
.ReminderMinutesBeforeStart = 2880
.RequiredAttendees = "Engineer Name"
.Mileage = appointmentID
.Recipients.ResolveAll
.Save
.Display
End With
Set objApp = Nothing
Set objNS = Nothing
Set objFolder = Nothing
Set objRecip = Nothing

[Micron]

You're trying to set objNs to something that doesn't yet exist.... objApp

[Welshgasman]

Try this link. I found it via a quick Google, top of the list.

https://docs.microsoft.com/en-us/off...m.send(method)

[DMT Dave]

Thank you guys, will do some testing, thanks again