envoi par mèl

Bonsoir Darib52, bonsoir à toutes et à tous

J'ai testé ton programme mais OE6 ne m'envoie pas les e-mails :sick: . Naturellement, j'avais modifié ce que tu avais mis

Enfin, quoiqu'il en soit, si ça fonctionne correctement chez toi, voici les modifs que tu demandes :

[ul][li]1. Tu avais mis ?Subject:= au lieu de ?Subject=[/li]

[li]2. Il faut mettre des Line Feed (LF) et non des Carriage Return (CR), je l'ai mis directement dans le texte sous la forme %0A qui équivaut à Chr(10) ou vbLf[/li]

[li]3. Tu avais trouvé ta dernière ligne en faisant Range('B6').End(xlDown).Row, j'ai juste modifié pour la déterminer à partir du bas de la feuille : Range('B65536').End(xlUp).Row[/li]

[li]4. En ajoutant la commande d'envoi d'Outlook Express par l'intermédiaire de
SendKeys '%s' (Dans le menu d'un nouveau message, Alt+s envoie le message).[/ul][/li]

J'espère que tout ça t'aidera un peu. Par contre, j'aimerais bien savoir si les messages partent lorsque tu appuies sur ton CommandButton ? :huh:

[file name=Darib52_testhelios.zip size=16585]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Darib52_testhelios.zip[/file]

A+

Message édité par: Charly2, à: 28/04/2006 23:41

chapeau bas, Monsieur Charly2.
c'est excatement ce que je voulais.

merci infiniment pour ton aide.

les mails se préparent automatiquement mais l'envoi est conditionné à l'intervention de 'alt+s' pour chaque message.

pas moyen d'envoi complétement auto.

mais qu'importe, j'ai fait un immense bond en avant.

Bon WE
amitiés