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

Question

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

f894009 · Answer

Bonjour,

https://forums.commentcamarche.net/forum/affich-2253001-macro-excel-envoi-email-avec-piece-jointe

Mike-31 · Answer

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

dsv45 · Answer

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

Mike-31 · Answer

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

dsv45 · Answer

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

Création macro pour envoi par mail

5 réponses

Discussions similaires