Création macro pour envoi par mail [Résolu/Fermé]

Signaler
Messages postés
1
Date d'inscription
samedi 7 juin 2014
Statut
Membre
Dernière intervention
7 juin 2014
-
 dsv45 -
Bonjour à toutes & tous,

je suis tout nouveau dans ce forum et je cherche de l'aide pour résoudre mon petit problème.

J'ai sur un fichier Excel 2007 enregistré une macro qui en cliquant sur un bouton envoi le fichier par mail avec une adresse mail fixe.

Si vous pouvez m'aider ce serait hyper sympa.

Merci pout toute aide

5 réponses

Messages postés
15271
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
12 août 2020
1 326
Messages postés
17161
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 août 2020
4 171
Bonsoir,

Es ce que tu veux envoyer le classeur complet avec tous les codes ou simplement une feuille

ensuite veux tu que le fichier envoyé reste un fichier excel ou une conversion en PDF

il est possible d'envoyer le fichier en CDO c'est a dire sans utiliser une messagerie comme Outlook en utilisant simplement le SMTP de ton fournisseur d'accès que tu peux mentionner au passage. Ce procédé est plus rapide et utilisable sans messagerie définie
Salut Mike-31

C'est le classeur complet.

J'ai fait un enregistrement d'une macro pour envoyer le classeur par mail, seulement je suis obligé de mettre l'adresse du destinataire.
je voudrais que l'adresse du destinataire se mette automatiquement.

Si tu sais comment faire?

Merci
Messages postés
17161
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
12 août 2020
4 171
RE,

vite fait, regarde ma proposition et on en reparle pour adapter.

en cellule B2 saisir l'adresse mail de l'expéditeur
en cellule B3 l'adresse mail du destinataire
et en cellule C1 ton SMTP (ex. pour orange se sera SMTP.orange.fr, pour free SMTP.free.fr, etc ...)

ensuite clic sur le bouton

https://www.cjoint.com/?DFhxw6KHFHZ
Salut Mike-31

Le but de ma démarche c'est d'envoyer ce fichier à un groupe de gens avec plusieurs formulaires à remplir et leur permettre A EUX par un simple clic de me retourner leur réponse. D'où le fait que mon adresse mail apparaisse automatiquement.

Une de mes connaissances m'a trouvé ce que je voulais et je vous la transcris pour exemple.

Sub Envoi_clic()
'
' Envoi_clic Macro
'

'
Application.Dialogs(xlDialogSendMail).Show arg1:="monadressemail"
End Sub

Voilà et merci