XL 2013 Pb attributs mailto avec ActiveWorkbook.FollowHyperlink

[vian31]

Bonjour,

Sous VBA Excel 2013 et ouverture du lien vers le webmail Microsoft 365 (Outlook pour le web) sur navigateur Edge:

Je cherche à utiliser tous les attributs du mailto: adresse, cc, subject et body.

J'ai l'impression que je ne peux mettre pourtant qu'un attribut en plus de l'adresse principale.

Exemple:

Ceci fonctionne, j'ai bien chaque adresse dans les bons champs:

ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?cc=adresse2@tada.fr"

Ceci fonctionne, j'ai bien l'adresse principale + objet:

ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?subject=Mon objet"

Mais ceci ne fonctionne plus (le lien s'ouvre mais aucun champ n'est rempli:

ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?subject=Mon objet?body=Mon corps de message"

Et ne fonctionne pas non plus:

ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?cc=adresse2@tada.fr?subject=Mon objet"

Sur ce PC je ne peux malheureusement pas installer d'autre navigateur pour tester.

Je ne cherche pas ici à créer une grosse fonction d'envoie de mail mais uniquement comprendre pourquoi ça bloque avec plusieurs attributs.

Un grand merci

Vianney

 

[fanch55]

Bonsoir:
? pour commencer les arguments
& pour séparer chaque argument

Sub test()
    Lien = "mailto:adresse1@tada.fr" & _
        "?" & "cc=adresse2@tada.fr" & _
        "&" & "subject=Mon objet" & _
        "&" & "body=Mon corps de message"
        
    ActiveWorkbook.FollowHyperlink Lien
End Sub

 

[vian31]

Bonsoir:
? pour commencer les arguments
& pour séparer chaque argument

Sub test()
    Lien = "mailto:adresse1@tada.fr" & _
        "?" & "cc=adresse2@tada.fr" & _
        "&" & "subject=Mon objet" & _
        "&" & "body=Mon corps de message"
       
    ActiveWorkbook.FollowHyperlink Lien
End Sub

ça marche à merveille.
Erreur toute bête que je n'arrivais pas à voir, un grand merci pour le coup de pouce !
Vianney