none
VB.Net 2013 - Email HTML créé par programmation avec script VBScript dans le Head RRS feed

  • Question

  • Bonjour à tous,

    Pour les besoins d'une application, je dois envoyer un email avec certaines infos.

    Dans cet email, j'aurai voulu y placer 2 boutons "Accepter" ou "Refuser" qui vont exécuter une procédure définie dans un script VBScript.

    Voici mon code:

     Dim MyEmailApp As Microsoft.Office.Interop.Outlook.Application

           MyEmailApp = New Microsoft.Office.Interop.Outlook.Application

            Dim myMail As Microsoft.Office.Interop.Outlook.MailItem

            myMail = MyEmailApp.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)

            myMail.Subject = "test envoi de mail"

            myMail.BodyFormat = Microsoft.Office.Interop.Outlook.OlBodyFormat.olFormatHTML

            ztext = "<html>"
            ztext = ztext & "<head> "
            ztext = ztext & "<script language='VBScript' type='text/vbscript'>"
            ztext = ztext & "sub Hello()"
            ztext = ztext & "msgbox 'hellllooooo'"
            ztext = ztext & "end sub"
            ztext = ztext & "</script>"
            ztext = ztext & "</head>"

            ztext = ztext & "<Body>"

            ztext = ztext & "<button onClick='Hello()'>Accepter</button>"

            myMail.To = "Dupont@brol.com"

            myMail.HTMLBody = ztext & "</body> </html>"

            myMail.Send()

            MyEmailApp.Quit()

    le code me semble correct mais lorsque je l'exécute, je reçois bien l'email avec le bouton mais lorsque je clique dessus, rien ne se passe. Ai-je fait une erreur quelque part?

    Merci d'avance.

    lundi 17 octobre 2016 14:50

Réponses

  • Bonjours,

    C'est une très, très mauvaise idée de mettre des scripts js (ou vb) dans vos emails. La plupart des antivirus, messageries refuseront vos emails.

    Mettez plutôt un lien vers une page ou là, l'utilisateur pourra répondre à votre question.


    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    • Marqué comme réponse Chris6224 jeudi 20 octobre 2016 08:11
    jeudi 20 octobre 2016 07:37

Toutes les réponses

  • Bonjour,
    Quelle version d'Internet Explorer avez-vous? Après un test effectué, le code ne marche pas sous IE11, mais en utilisant IE8 ça marche. Et aussi vous devez mettre entre guillemets votre "hellllooooo", de la manière suivante:

    ztext = ztext & "msgbox ""hellllooooo"" "

    Cordialement,
    Nina


    Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

    mardi 18 octobre 2016 11:44
    Modérateur
  • Bonjour,

    Merci pour votre réponse.

    J'ai Internet explorer 11. Mais, je n'utilise pas vraiment internet explorer vu que mon code html est utilisé pour construire un email au format html et y intégrer du vbscript.

    Malheureusement, ça ne fonctionne toujours pas et ce que je trouve bizarre, c'est que lorsque je reçois l'email ainsi construit, dans la visualisation du message dans Outlook, je ne vois pas le bouton ni la textbox, par contre si j'utilise Outlook via Office365 sur le net, je vois le bouton et la textbox!!! mais toujours pas d'action lorsque je clique sur le bouton. 

    Vue Outlook

    Vue outlook

    Vue Outlook 365 via le net

    Vue Outlook via Office365 sur le net


    • Modifié Chris6224 mardi 18 octobre 2016 12:34
    mardi 18 octobre 2016 12:26
  • Bonjours,

    C'est une très, très mauvaise idée de mettre des scripts js (ou vb) dans vos emails. La plupart des antivirus, messageries refuseront vos emails.

    Mettez plutôt un lien vers une page ou là, l'utilisateur pourra répondre à votre question.


    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    • Marqué comme réponse Chris6224 jeudi 20 octobre 2016 08:11
    jeudi 20 octobre 2016 07:37
  • Bonjour,

    Merci pour votre réponse.

    J'ai effectivement choisi et implémenté votre solution.

    Salutations

    Chris

    jeudi 20 octobre 2016 08:11