XL 2013 Pb attributs mailto avec ActiveWorkbook.FollowHyperlink

vian31

XLDnaute Nouveau
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:
VB:
ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?cc=adresse2@tada.fr"

Ceci fonctionne, j'ai bien l'adresse principale + objet:
Code:
ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?subject=Mon objet"

Mais ceci ne fonctionne plus (le lien s'ouvre mais aucun champ n'est rempli:
Code:
ActiveWorkbook.FollowHyperlink "mailto:adresse1@tada.fr?subject=Mon objet?body=Mon corps de message"

Et ne fonctionne pas non plus:
Code:
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
 
Solution
Bonsoir:
? pour commencer les arguments
& pour séparer chaque argument
VB:
Sub test()
    Lien = "mailto:adresse1@tada.fr" & _
        "?" & "cc=adresse2@tada.fr" & _
        "&" & "subject=Mon objet" & _
        "&" & "body=Mon corps de message"
        
    ActiveWorkbook.FollowHyperlink Lien
End Sub

fanch55

XLDnaute Barbatruc
Bonsoir:
? pour commencer les arguments
& pour séparer chaque argument
VB:
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

XLDnaute Nouveau
Bonsoir:
? pour commencer les arguments
& pour séparer chaque argument
VB:
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
 

Discussions similaires

Réponses
0
Affichages
1 K