Xldialogsendmail [Résolu]

Messages postés
7
Date d'inscription
jeudi 17 juillet 2008
Dernière intervention
20 octobre 2008
- - Dernière réponse : slplayer67
Messages postés
7
Date d'inscription
jeudi 17 juillet 2008
Dernière intervention
20 octobre 2008
- 13 oct. 2008 à 08:44
Bonjour
dans un fichier excel je voudrais en appuyant sur un bouton envoier la page active par mail suivant une liste défini.
Avec le code Application.Dialogs(xlDialogSendMail).Show j'arrive à ouvrir la boite de dialogue mais je n'arrive pas à trouver la bonne formulation pour renseigner les arguments de cette boite (recipients, subject et return_receipt).
merci d'avance pour vos reponses
Afficher la suite 
A voir également:

Votre réponse

2 réponses

Meilleure réponse
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
19
1
Merci
bonjour

J'espère que cet exemple pourra t'aider

Dim return_receipt As Boolean
Dim strRecipients As String, strSubject As String



'Copie la feuille active qui va être envoyée par mail
ActiveSheet.Copy



strRecipients = "
[mailto:destinataire@provider.fr
destinataire@provider.fr
]
"
strSubject = "Le sujet du message"
return_receipt = True



Application.Dialogs(xlDialogSendMail).Show _
    strRecipients, _
    strSubject, _
    return_receipt



'Supprime le classeur envoyé
'ActiveWorkbook.Close False




bonne journée
michel

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 118 internautes nous ont dit merci ce mois-ci

Commenter la réponse de michelxld
Messages postés
7
Date d'inscription
jeudi 17 juillet 2008
Dernière intervention
20 octobre 2008
0
Merci
Merci
Commenter la réponse de slplayer67

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.