sendmail

[Emilie]

Bonjour à tous,

Je viens de m'inscrire sur ce site car j'y ai trouvé un esprit de solidarité que je ne rencontre pas partout.

Je vous explique mon problème :

Je souhaiterai envoyer un classeur par mail en cliquant sur un simple bouton.
J'ai utilisé la fonction sendmail comme indiqué ci-dessous :

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail Recipients:='toto.tata@free.fr'
End Sub

cette commande fonctionne très bien sur mon ordinateur mais dès que je recopie mon fichier sur un autre PC j'ai un message 'erreur 1004' dès que je clique sur mon bouton Envoyer.


est-ce que quelqu'un a déjà eu ce problème?

Je vous remercie par avance

 

[Brigitte]

Bonjour Emilie,

mDF avait donné cette macro là, mais je crois que plein d'autres fonctionnent :

Sub Envoi()
Sheets(Array(3, 4)).Copy
Application.Dialogs(xlDialogSendMail).Show 'Destinataire@Dest.com', 'Ci-joint Feuilles 3 et 4'
ActiveWorkbook.Close False
End Sub


Ca te permet de choisir les feuilles.

 

[Emilie]

Merci beaucoup Brigitte j'essaie de suite.

 

[Emilie]

Je viens d'essayer ton code Brigitte et ça fait comme le mien.

ça ne fonctionne que sur mon ordinateur et pas sur les autres.

 

[Brigitte]

Re,

Malheureusement, je ne peux t'aider. Les autres ont-ils Outlook ? C'est peut être là que le bât blesse.

J'espère que qqun va venir à ta rescousse.

Bon courage et BIENVENUE Emilie.

 

[Emilie]

Bonjour Brigitte,

je viens de trouver la soluce à mon problème : j'ai fait une mise à jour des composants Office avec le CD, il y avait surement un composant qui était passé à l'as.

J'ai tout remis à plat et je n'ai plus le message d'erreur lorsque j'appuie sur mon bouton d'envoi.


Il faut juste que je supprime le message qui apparait et qui choisit NON par défaut.

Bonne journée

 

[Brigitte]

Super Emilie, je suis contente pour toi.
Bonne journée à toi.