Email rendez outlook

Signaler
Messages postés
79
Date d'inscription
mardi 2 avril 2002
Statut
Membre
Dernière intervention
6 juillet 2009
-
Messages postés
79
Date d'inscription
mardi 2 avril 2002
Statut
Membre
Dernière intervention
6 juillet 2009
-
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

2 réponses

Messages postés
561
Date d'inscription
mardi 4 mars 2008
Statut
Membre
Dernière intervention
10 juin 2010

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
Messages postés
79
Date d'inscription
mardi 2 avril 2002
Statut
Membre
Dernière intervention
6 juillet 2009

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


<hr />

        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 = "[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\recup.vcs")

        message.Send()

<hr />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...