envoyer une plage par email

Bonjour,

Je souhaite envoyer une plage de données par email depuis Excel.
J'ai essayé les 2 méthodes de la faq mais ça ne marche pas dans Excel 2003 puis 2007.
http://excel.developpez.com/faq/?page=Messagerie
J'ai vérifié mon pare feu : tout est autorisé pour Excel.

avec "Sub envoiPlageCellules_Excel2002()", j'ai le message "la méthode enveloppe visible a échoué".

avec "Sub PlageDeCellulesDansCorpsDuMessage()", j'ai le message "le transport a échoué dans sa connexion au serveur" et ça bloque au niveau de la ligne "send".

Quelqu'un a-t'il des des suggestions ?

Si tu t'es servi du lien remplace Item par msg que tu déclare avec dim en début de routine

Code:

---

Dim msg As MailItem

---

Pour ma part j'ai réussi à envoyer des mail avec ce style de code.

Apparemment, Excel 2003 ne connaît pas mailitem. Dans la liste déroulante, il propose seulement "Mailer" et "MailFormat" et quand on exécute le code on a un message d'erreur : "type défini par l'utilisateur non défini".

J'ai essayé d'exécuter les procédures en désactivant mon pare feu mais ça ne change rien.

Re, quel est ton fournisseur d'accès car quand tu regarde dans la FAQ il y a un moyen de gérer ton type d'erreur.

http://excel.developpez.com/faq/?pag...urExecutionCDO

Regarde sur http://outlook.developpez.com/faq/in...tion#Paras_FAI

pour voir si ton FAI ne doit pas être précisé dans ta procédure.

j'ai rajouté les lignes pour préciser le smtp et ça m'a permis d'avoir d'autres messages d'erreur

Le serveur a rejeté une ou plusieurs adresses de destinataires. La réponse du serveur était : 550 the ip adress... has been listed on a realtime blacklist, and the user _@_ has elected to enforce blacklists.

ou alors

le serveur a rejeté une ou plusieurs adresses de destinataires. La réponse du serveur était : 553 sorry, you have to authenticate first to be able to use this smtp server, please configure your email client (outlook) to authenticate for outgoing mail server (#5.7.1)

En fait, j'utilise thunderbird par défaut. Je suis donc allé voir le vieil outlook express qui date de 2004 que je n'ai jamais utilisé, je l'ai mis par défaut et j'ai tenté de paramétrer le smtp (il n'y a même pas de champ pour préciser le port). J'ai encore eu le message précédent.

:cry::cry::cry:

Bon alors comme Excel me faisait des misères j'ai créé une macro dans Macro Express avec 2 lignes de code :
ligne 1 : récupérer l'adresse du destinataire depuis le registre
ligne 2 : poster l'email vers le destinataire avec un texte équivalent au fichier txt exporté depuis Excel

Dans Excel ça donne ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub poster_email() 'exporter l'adresse email SaveSetting "1 Excel", "1", "email", Sheets("email").Range("B16").Value 'exporter le texte de l'email (une seule colonne) ActiveSheet.Range("A1:A27").Select Dim i As Integer Open "P:\_unzip\txt\email via macro express.txt" For Output As #1 For i = 1 To Selection.Rows.Count Print #1, ActiveWindow.RangeSelection.Next(i, 0) Next i Close #1 'poster l'email Dim RetVal RetVal = Shell("P:\Program Files\Macro Express\MacExp.exe /Aenvoi email depuis Excel") End Sub

---

et ça marche :)