Discussion :

[STEF68600]

Bonjour,

depuis ce matin, je cherche un code d'envoi mail avec thisworkbook joint,
mais rien ne marche car j'ai pas cette satané librairie comme je suis sous outlook express.
alors ma question comment excel arrive à envoyer des mails via "envoyer vers" "destinataire" , l'idée serait

1) d'afficher ce bandeau depuis un code vba excel 2003 et supérieur.
2) attaquer les champs du bandeau par code vba si c'est possible.

bien entendu comme mon patron à serré les boulons alors nous n'avons pas tous les mêmes versions excel et outlook.

en toutes logique c'est excel qui gére l'envoi du mail en passant par le bandeau.

en espérant avoir été assez clair, merci de m'aider car la je sature à force d'avoir essayé plein d'exemples et qu'aucun ne fonctionne dans mon cas...

nota: je ne veux pas utiliser CDO, car j'ai le problème que nous sommes sur réseau interne et que chacun à ses identifiants, donc impossible d'avoir un fichier commun.

Cordialement

[STEF68600]

bonjour,

j'ai trouvé ma solution.
ci-dessous le code qui pourrais aider d'autres personne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim corps As String
Dim textdisplay As String
 
textdisplay = Range("D9").Text 
corps = "mailto: ?subject="objet de message" & Range("C16").Text
Range("D9:F9").Select 
    Selection.Hyperlinks.Delete
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=corps, TextToDisplay:=textdisplay
 
Range("D9:F9").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
     Range("D9:F9").ClearContents
    Range("D9") = textdisplay
    Range("D7:F7").Select

bonne journée