/ / Comment définir la propriété Recipients dans Outlook.AppointmentItem? - excel, vba, excel-vba, perspectives

Comment définir la propriété Recipients dans Outlook.AppointmentItem? - excel, vba, excel-vba, perspectives

Dans cet excel de code VBA, j'essaie de créer un nouveau rendez-vous dans Outlook et je souhaite envoyer un courrier électronique à ce rendez-vous, c'est-à-dire que je souhaite inviter des utilisateurs pour le rendez-vous.
Je ne suis pas sûr d'avoir besoin de créer un nouvel objet outlook.recipients pour cette chose ou d'utiliser correctement la propriété .Recipeint.Add.

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

J'obtiens une application ou un objet défini comme une erreur. Merci d'avance.

Réponses:

2 pour la réponse № 1

Les rendez-vous sont personnels et uniquement pour vous.

Vous devez d'abord en faire une réunion avant de pouvoir ajouter des destinataires.

Pour ce faire, ajoutez AppointmentItem.MeetingStatus = olMeeting à votre code. Donc, pour votre code, il serait

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 pour la réponse № 2

Avez-vous un pop-up comme ça?

entrer la description de l'image ici

Si oui et si vous cliquez sur "Refuser", alorspourrait expliquer votre erreur. Cela est dû au fait que la protection des modèles d'objet est mise en place pour empêcher les pirates d'accéder à vos destinataires par courrier électronique via le modèle d'objet Outlook. Voir cet article:

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