Merci, j'ai un peu avancé et j'ai des probléme de droit j'ai l'impression:
des que je fais ca
objOutlook = New Outlook.Application ca charge pendant 30 seconde et ca me fait L'appel a été rejeté par l'appelé.
j'arrive pas trop a comprendre pourquoi...
bon du coup j'ai essayé autrement , j'ai réussi a ouvrir un email de type reunion et voir comment c'etait fait, plus 2,3 exemple sur le web j'ai fais ca
Dim outlookvcs As New System.Text.StringBuilder
Dim recup As String
With outlookvcs
.Append("BEGIN:VCALENDAR" & vbLf)
.Append("PRODID:-//Microsoft Corporation//Outlook 12.0 MIMEDIR//EN" & vbLf)
.Append("VERSION:2.0" & vbLf)
.Append("METHOD:REQUEST" & vbLf)
.Append("X-MS-OLK-FORCEINSPECTOROPEN:TRUE" & vbLf)
.Append("BEGIN:VEVENT" & vbLf)
.Append("ATTENDEE;CN=jp.pasquet@solirem.com;RSVP=TRUE:mailto:jp.pasquet@solirem.com" & vbLf)
.Append("CLASS:PUBLIC" & vbLf)
.Append("CREATED:20080418T133009Z" & vbLf)
.Append("DESCRIPTION:Quand : vendredi 18 avril 2008 15:30-16:00 (GMT+01:00) Bruxelle" & vbLf)
.Append(" s\, Copenhague\, Madrid\, Paris.\nEmplacement : test\n\n*~*~*~*~*~*~*~*~*~" & vbLf)
.Append(" *\n\ndsfdsfsd\n" & vbLf)
.Append("DTEND:20080418T140000Z" & vbLf)
.Append("DTSTAMP:20080418T133009Z" & vbLf)
.Append("DTSTART:20080418T133000Z" & vbLf)
.Append("LAST-MODIFIED:20080418T133009Z" & vbLf)
.Append("LOCATION:test" & vbLf)
.Append("ORGANIZER;CN='Pasquet Jean-pierre':mailto:jp.pasquet@solirem.fr" & vbLf)
.Append("PRIORITY:5" & vbLf)
.Append("SEQUENCE:0" & vbLf)
.Append("SUMMARY;LANGUAGE=fr:fdsfdsfdsf" & vbLf)
.Append("TRANSP:OPAQUE" & vbLf)
.Append("UID:040000008200E00074C5B7101A82E0080000000090E9401669A1C801000000000000000" & vbLf)
.Append(" 010000000EE16DB499C47D947874271FFC96DA597" & vbLf)
.Append("X-MICROSOFT-CDO-BUSYSTATUS:TENTATIVE" & vbLf)
.Append("X-MICROSOFT-CDO-IMPORTANCE:1" & vbLf)
.Append("X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY" & vbLf)
.Append("X-MICROSOFT-DISALLOW-COUNTER:FALSE" & vbLf)
.Append("X-MS-OLK-ALLOWEXTERNCHECK:TRUE" & vbLf)
.Append("X-MS-OLK-AUTOSTARTCHECK:FALSE" & vbLf)
.Append("X-MS-OLK-CONFTYPE:0" & vbLf)
.Append("X-MS-OLK-SENDER;CN='Pasquet Jean-pierre':mailto:jp.pasquet@solirem.fr" & vbLf)
.Append("BEGIN:VALARM" & vbLf)
.Append("TRIGGER:-PT15M" & vbLf)
.Append("ACTION:DISPLAY" & vbLf)
.Append("DESCRIPTION:Reminder" & vbLf)
.Append("END:VALARM" & vbLf)
.Append("END:VEVENT" & vbLf)
.Append("END:VCALENDAR" & vbLf)
End With
recup = outlookvcs.ToString()
Dim message As New EmailMessage
recup = outlookvcs.ToString()
Dim sFileName As String = "C:\Inetpub\wwwroot\bsc_demo_graph\toto.vcs"
Dim fs As New System.IO.FileStream(sFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim sw As New System.IO.StreamWriter(fs)
sw.WriteLine(recup)
sw.Flush()
sw.Close()
fs.Close()
Dim message As New EmailMessage
message.Server = "smpt@smtp.fr"
message.FromAddress = "jp.pasquet@solirem.fr"
message.Subject = "test"
message.To = "jp.pasquet@solirem.fr"
message.AddAttachment("C:\Inetpub\wwwroot\bsc_demo_graph\recup.vcs")
message.Send()
ca marche presque en piéce jointe, j'ai un fichier vcs que j'ouvre et j'ai la fenetre d'acceptation ou pas de rendez vous, mais je voudrais recevoir directement l'email tel quel.
mais comment insérer le code génerer? si je le met dans le body bha ca m'affiche le code...