Envoie d'une invitation sur Gmail

[aboucas25]

Bonjour, j'ai un agent en LS qui crée une entrée d'agenda de type invitation.
Le document est correct lorsque l'on le visualise sur un agenda lotus mais n'est pas du tout correct lors de la visualisation sur Gmail.
Avez vous une idee de pq?

Voici mon code:

Code : Tout sélectionner

Sub communInvitation
   Dim atWatched (0 To 4) As String
   atWatched(0)="$S"
   atWatched(1)="$L"
   atWatched(2)="$B"
   atWatched(3)="$R"
   atWatched(4)="$E"
   
   Set startdatetime =  New NotesDateTime(Datevalue(Cdat(docAction.ActionDate(0))) & " " & docAction.ActionStartTime(0))
   Set enddatetime = New NotesDateTime(Datevalue(Cdat(docAction.ActionDate(0))) & " " & docAction.ActionEndTime(0))
   
   Set docInvit = New NotesDocument(dbMail)
   
   With docInvit
      
      .Subject="Demande d'intervention: " & docAction.ActionName(0) & " le " & Cstr(Cdat(docAction.ActionDate(0)))
      .Topic="Demande d'intervention: " & docAction.ActionName(0) & " le " & Cstr(Cdat(docAction.ActionDate(0)))
      .From=organisateur.Canonical
      .Principal=organisateur.Canonical
      .Chair=organisateur.Canonical
      .AltChair=organisateur.Canonical
      .Alarms="1"
      .AppointmentType="3"
      .MeetingType="1"
      .SendTo=animMail
      .RequiredAttendees= animMail
      .AltRequiredNames=animMail
      .CalendarDateTime=docAction.ActionDate(0)
      .DueDateTime=docAction.ActionDate(0)
      .StartDate =  Cdat(docAction.ActionDate(0))
      .StartDateTime =  startdatetime.LSLocalTime
      .StartTime=docAction.ActionStartTime(0)
      .EndDate= Cdat(docAction.ActionDate(0))
      .EndTime=docAction.ActionEndTime(0)
      .EndDateTime =  enddatetime.LSLocalTime
      .PostedDate = Now
   End With
   
   Call docInvit.ReplaceItemValue("$BusyPriority", "1")
   Call docInvit.ReplaceItemValue("$SMTPKeepNotesItems", "1")
   
   Call docInvit.ReplaceItemValue("$WatchedItems", atWatched)
   
   
End Sub

Sub sendInvitation()
   
   On Error Goto errtrap
   
   Call communInvitation()
   
   Call docInvit.ReplaceItemValue("NoticeType","I")
   Call docInvit.ReplaceItemValue("Form","Notice")
   Call docInvit.ReplaceItemValue("_ViewIcon", 133)
   Call docInvit.ReplaceItemValue("$CSVersion", |2|)
   Call docInvit.ComputeWithForm(False,False)
   
   Call docInvit.Send(False)
   
   Exit Sub
errtrap :
   Messagebox "(CreateInvitation - SendInvitation)"  + Error + " in " + Cstr(Erl)
End Sub



Merci beaucoup pour votre aide.

[Michael DELIQUE]

salut

déjà entoure ton code des balise [ c o d e ] [ / c o d e ] ça sera plus claire

ensuite regarde si ton document créé via l'agent à bien les même champs et le même contenu de champ

[aboucas25]

Ca y est je viens d'entourer le code.
Je viens de verifié ils ont le meme contenu.

[Michael DELIQUE]

re,

avant le save de ton doc essai un computewihform pour voir

[aboucas25]

il est deja mais cela ne fonctionne tjs pas!

[aboucas25]

Bonjour, désolé de vous embeter mais personne n'a une idee?
Merci encore pour votre aide.

[roubech]

tu peux comparer le source MIME d'une invitatin envoyée normalement via ton agenda avec le source MIME de l'invitation envoyée par ton agent