יצירת אירוע אוטלוק באמצעות אקסל (2010)

[eyal19901]

יצירת אירוע אוטלוק באמצעות אקסל (2010)

שלום,

השתמשתי במאקרו ליצירת אירוע ביומן של האוטלוק על בסיס מאקרו שראיתי בפורום (מצורף).
איך אני יכול לשלוח את האירוע כהזמנה למשתתפים נוספים (המייל של המוזמנים מופיע בעמודות 9,10,11.

תודה רבה !

Sub reminder_a()
'
Dim oboutlook As Object
Set oboutlook = CreateObject("outlook.application")
R = 5
While ActiveSheet.Cells(R, 2) <> ""
If ActiveSheet.Cells(R, 6) >= Date And ActiveSheet.Cells(R, 17) <> "V" Then
Set obltem = oboutlook.CreateItem(1)
With obltem
.Subject = Cells(R, 2) & " " & Cells(R, 5)
.Start = Cells(R, 6) & " 07:00"
.Duration = 30
.Save
End With
ActiveSheet.Cells(R, 17) = "V"
End If
R = R + 1
Wend
Set oboutlook = Nothing



'
End Sub

 

[ziv98]

נסה להיעזר ב:

Dim oboutlook As Object
Set oboutlook = CreateObject("outlook.application")
    
    Set obltem = oboutlook.CreateItem(olAppointmentItem)
    With obltem
    .Subject = "test"
    .Start = #12/11/2017 1:30:00 PM#
    .Duration = 30
    .Recipients.Add ("[EMAIL][email protected][/EMAIL]")
    .Recipients.ResolveAll
    .Send
    .Save
    End With
   
   Set oboutlook = Nothing

אצלי הוא יוצר את הפגישה, מוסיף את הנמען, ולא שולח (אם אני נכנס ידנית ורק שולח - עובד).
אני מניח שזה מכל מיני הגדרות אבטחה. לא התעמקתי איזה.

 

[eyal19901]

תודה, מישהו יודע איך ניתן לבצע שליחה אוטומאטית ?

Sub reminder_a()
'
Dim oboutlook As Object
Set oboutlook = CreateObject("outlook.application")
R = 5
&nbsp
While ActiveSheet.Cells(R, 2) <> ""
If ActiveSheet.Cells(R, 6) >= Date And ActiveSheet.Cells(R, 17) <> "V" Then
Set obltem = oboutlook.CreateItem(1)
With obltem
.Subject = Cells(R, 2) & " " & Cells(R, 5)
.Start = Cells(R, 6) & " 07:00"
.Duration = 30
.Recipients.Add (Cells(R, 11) & Cells(R, 13))
.Recipients.ResolveAll
.Send
.Save
End With
ActiveSheet.Cells(R, 17) = "V"
End If
R = R + 1
Wend
Set oboutlook = Nothing
'
End Sub
&nbsp
המקרו עובד אך שולח רק לנמען הראשון (המופיע בעמודה 11 אך לא לנמען בעמודה 13) וכדי לשלוח צריך להכנס ידנית לפגישה באוטלוק ולשלוח.
מישהו יודע כיצד ניתן שהזימון לפגישה ישלח אוטומאטית / מהי השגיאה שבגינה הוא לא שולח לנמען השני ?
&nbsp
תודה רבה !

 

[ziv98]

עזוב כמה זמן עבר מאז ששאלת, מישהו צריך לבנות קובץ דוגמה ?