Email rendez outlook

Question

Bonjour,

voila je voudrais envoyer un email via aspmail, jusqu'a la pas de probléme, mais je voudrais que ca soit un email de type rendez vous outlook... et je ne vois pas comment faire 

je cherche la syntaxe de ces emails "outlook" mais je ne la trouve pas, si quelqu'un avait une piste?

Merci

GillouXman · Answer

si c'est bien un meeting request dont tu parles

ca devrait t'aider

http://dotnet.org.za/danieb/archive/2005/03/02/14960.aspx

cs_karn · Answer

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. Emplacement : test *~*~*~*~*~*~*~*~*~" & vbLf) .Append(" * dsfdsfsd " & 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 oto.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 = "[mailto:smpt@smtp.fr smpt@smtp.fr]" message.FromAddress = "[mailto:jp.pasquet@solirem.fr jp.pasquet@solirem.fr]" message.Subject = "test" message.To = "[mailto:jp.pasquet@solirem.fr jp.pasquet@solirem.fr]" message.AddAttachment("C:\Inetpub\wwwroot\bsc_demo_graph ecup.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...

Email rendez outlook

2 réponses

Votre réponse

Discussions similaires