Création macro pour envoi par mail

Résolu
dsv45 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 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
A voir également:

5 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0
dsv45
 
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
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
dsv45
 
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
0