Outllook appointment Object

[loulou2522]

Hi all,
I find the way to create an appointment with multiple recipients, but i don't know how to join a pdf file for each recipient. Is there a way to do that ?
I have another question is-it possible to make the same thing with thunderbird?
Thanks in advance

[Marco2007]

I just know, how to add files to the appointment ...

Code: Select all

XIncludeFile #PB_Compiler_Home+"include\COMatePLUS.pbi"
Global olApp.COMateObject, olAppt.COMateObject, olFldr.COMateObject, NameSpace.COMateObject, Auslastung.COMateObject, folder.COMateObject, olRecip.COMateObject, folder1.COMateObject, Appointment.COMateObject, iAdd.COMateObject

folder$="Test"
subject$="Subject"
location$="location"
appointment_start$="24.02.2024 06:00:00"
appointment_end$="24.02.2024 12:30:00"
categories$ = "green category"
file1$=OpenFileRequester("", "", "", 0)
file2$=OpenFileRequester("", "", "", 0)

olApp = COMate_CreateObject("Outlook.Application") 
If olApp
  NameSpace = olApp\GetObjectProperty("GetNamespace(" + Chr(39) + "MAPI" + Chr(39) + ")") 
  Folder = NameSpace\GetObjectProperty("GetDefaultFolder(9)") 
  Folder1 = Folder\GetObjectProperty("Folders('"+folder$+"')")  

    iAdd = Folder1\GetObjectProperty("Items\Add") 
    iAdd\SetProperty("Subject='"+subject$+ " (" + ReplaceString(StrD(zeit, 2), ".", ",") + " h)"+ "'")
    iAdd\SetProperty("Location='"+location$ +"'")
    iAdd\SetProperty("Start='"+appointment_start$+"'")
    iAdd\SetProperty("End='"+appointment_end$+"'")   
    iAdd\SetProperty("BodyFormat = 2") 
    iAdd\SetProperty("Categories='"+categories+"'")

If file1$
  iAdd\invoke("Attachments\Add ='"+file1$+"'") 
EndIf 
If file2$
  iAdd\invoke("Attachments\Add ='"+file2$+"'") 
EndIf
  
iAdd\Invoke("Save")

If Appointment : Appointment\Release() : EndIf 
If iAdd: iAdd\Release() : EndIf 
If Folder : Folder\Release() : EndIf 
If Folder1 : Folder1\Release() : EndIf 
If NameSpace : NameSpace\Release() : EndIf   
If olApp : olApp\Release() : EndIf 
EndIf