Par macro, envoyer un mail

Bonjour,

1° Comment savoir si une connection a Internet est établie

2° Si connection, envoyer un mail a une adresse prédéfinie

Excel 2003
Windows XP

Le but est de recevoir par mail le nom d'un fichier *.xls a télécharger.

Merci pour vos conseils.

A vous lire.

Bonjour,

Tu peux essayer cela.

A+

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Wbk As Workbook ThisWorkbook.Sheets("nom").Copy Set Wbk = ActiveWorkbook   Wbk.SendMail "nom@orange.fr", _ " objet", returnreceipt:=True Vimpression.Show ActiveWorkbook.Close (False)   End Sub

---

Bonjour RAID14,

Merci pour la réponse.

Mais, y a t'il un moyen pour ne pas passer par Outlook ?

A vous lire

Cherche dans ce forum le mot clé CDO.
Tu devrais trouver ton bonheur.

Bonjour AlainTech,

Merci pour l'info, je vais fouiller dans cette mine !

Bonne journée

@ +