XL 2013 Pb attributs mailto avec ActiveWorkbook.FollowHyperlink

vian31 · 25 Janvier 2022

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

fanch55 · 25 Janvier 2022

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 · 25 Janvier 2022

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 · 26 Janvier 2022

fanch55 à dit:
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

XL 2013 Pb attributs mailto avec ActiveWorkbook.FollowHyperlink

vian31

XLDnaute Nouveau

fanch55

fanch55

XLDnaute Barbatruc

vian31

XLDnaute Nouveau

Discussions similaires

XL 2013 Pb attributs mailto avec ActiveWorkbook.FollowHyperlink

vian31

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

vian31

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency