/ / Como faço para definir a propriedade Recipients no Outlook.AppointmentItem? - excel, vba, excel-vba, outlook

Como faço para definir a propriedade Recipients no Outlook.AppointmentItem? - excel, vba, excel-vba, outlook

Neste código Excel VBA eu estou tentando criar um novo compromisso no outlook e o que eu quero é enviar e-mail esse compromisso ou seja, eu quero convidar usuários para o compromisso.
Não tenho certeza se preciso criar um novo objeto outlook.recipients para essa coisa ou não estou usando a propriedade .Recipeint.Add corretamente.

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

Estou ficando definido pelo aplicativo ou objeto definido como erro. Desde já, obrigado.

Respostas:

2 para resposta № 1

As nomeações são pessoais e somente para você.

Você precisa alterá-lo para uma reunião antes de adicionar destinatários.

Para fazer isso, adicione AppointmentItem.MeetingStatus = olMeeting para o seu código. Então, para o seu código, seria

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 para resposta № 2

Você está recebendo um pop-up como este?

insira a descrição da imagem aqui

Se assim for e se você está clicando em "Negar", então issopoderia explicar seu erro. Isso acontece porque a proteção do modelo de objeto é colocada em prática para impedir que hackers tenham acesso a seus destinatários de e-mail por meio do modelo de objeto do outlook. Veja este artigo:

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