/ / Wie kann ich die Empfänger-Eigenschaft in Outlook.AppointmentItem festlegen - Excel, vba, excel-vba, Ausblick

Wie setze ich die Recipients-Eigenschaft in Outlook.AppointmentItem? - Excel, VBA, Excel-VBA, Ausblick

In diesem Excel-VBA-Code versuche ich, einen neuen Termin in Outlook zu erstellen, und ich möchte diesen Termin per E-Mail versenden, d.
Ich bin nicht sicher, ob ich ein neues outlook.recipients-Objekt für diese Sache erstellen muss, oder ich benutze die .Recipeint.Add-Eigenschaft nicht ordnungsgemäß.

Sub app()

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.AppointmentItem

Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olAppointmentItem)

With OutMail

.Location = " happening"
.Subject = " Event check "
.Start = "8:00 PM" & Format(Date)
.End = "9:00 PM" & Format(Date)
.Body = "this is event details"
.Recipients.Add ("someone@gmail.com") " This line is not working
" .Display
.Send

End With

End Sub

Ich bekomme anwendungsdefinierte oder als Fehler definierte Objekte. Danke im Voraus.

Antworten:

2 für die Antwort № 1

Termine sind persönlich und nur für Sie.

Sie müssen es zuerst in ein Meeting umwandeln, bevor Sie Empfänger hinzufügen können.

Fügen Sie dazu hinzu AppointmentItem.MeetingStatus = olMeeting zu deinem Code. Also für Ihren Code wäre es

Sub app()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.AppointmentItem

Set OutApp = New Outlook.Application
Set OutMail = OutApp.CreateItem(olAppointmentItem)

With OutMail
.MeetingStatus = olMeeting
.Location = " happening"
.Subject = " Event check "
.Start = "8:00 PM" & Format(Date)
.End = "9:00 PM" & Format(Date)
.Body = "this is event details"
.Recipients.Add ("someone@gmail.com") " This line is not working
" .Display
.Send

End With
End Sub

0 für die Antwort № 2

Bekommst du so ein Pop-Up?

Bildbeschreibung hier eingeben

Wenn ja und wenn Sie auf "Ablehnen" klicken, dann daskönnte deinen fehler erklären. Dies geschieht, weil der Objektmodellschutz eingerichtet wird, um zu verhindern, dass Hacker über das Outlook-Objektmodell Zugriff auf Ihre E-Mail-Empfänger erhalten. Diesen Artikel sehen:

http://msdn.microsoft.com/en-us/library/office/ff864479%28v=office.14%29.aspx