Récupérer des lignes d'un TXT sous Excel (VBA)

14/12/2004, 10h37

Bonjour,

En vue de programmer un envoi automatique de mails, je cherche un moyen pour récupérer le contenu d'un fichier .txt en transformant les retours à la ligne en Chr(13);
Le fichier .txt constituerait le corps du message auquel MonMessage.Body ferait appel...

Quelqu'un a une idée?

Merci et bonne fin de matinée à tous!

Jeff

14/12/2004, 13h48

Salut Jeff,

Par le bié des macros tu peu importer en auto un fichier texte

(l'utilisation de l'assistant de création de macro est trés utile)

tu n'as plus ensuite qu'a utilisé la fonction instr(1,range("A1").value,chr(10),vbtextcompare) pour trouver ou ce situe ton retour chariot en retour à la ligne (chr(10)).

Et voili voilu...

Wilfried ;-)

14/12/2004, 17h52

bonsoir Jeff , bonsoir Wilfried

tu peux essayer

Sub EvoiMail_TexteIssuFichierTexte()
'Evoi Mail Sans Message Confirmation
'testé avec XP
'Send using the Pickup directory on the IIS server.
'adapté de : http://support.microsoft.com/default.aspx?kbid=286430
Dim iMsg As Object, iConf As Object
Dim Fichier As String, Cible As String, Resultat As String
Dim Valeur As Long

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

Fichier = "C:\Documents and Settings\michel\fichierXLD.txt" 'adapter le chemin

Resultat = ""
Resultat = Resultat & "<HEAD>"
Resultat = Resultat & "<BODY>"

Open Fichier For Input As #1
Do While Not EOF(1)
Line Input #1, Cible 'boucle sur chaque ligne du fichier texte
Resultat = Resultat & Cible & "</br>"
Loop

Resultat = Resultat & "</BODY>"
Resultat = Resultat & ""

With iMsg
Set .Configuration = iConf
.To = "xld@leforum.fr"'adapter l'adresse
'.From = "youralias@yourdomain.com"
.Subject = "test envoi mail"
.HTMLBody = Resultat 'insertion variable texe dans le corps du message
.Send
End With

Close 1 'fermeture fichier texte

End Sub

bonne soiree
MichelXld

14/12/2004, 18h24

rebonsoir

oouuppss...
petite precision : la ligne "Dim Valeur As Long" est superflue

bonne soiree
MichelXld

14/12/2004, 10h37	#1 (permalink)
Jeff Guest Messages: n/a	Récupérer des lignes d'un TXT sous Excel (VBA) Bonjour, En vue de programmer un envoi automatique de mails, je cherche un moyen pour récupérer le contenu d'un fichier .txt en transformant les retours à la ligne en Chr(13); Le fichier .txt constituerait le corps du message auquel MonMessage.Body ferait appel... Quelqu'un a une idée? Merci et bonne fin de matinée à tous! Jeff

14/12/2004, 13h48	#2 (permalink)
Wilfried Guest Messages: n/a	Re: Récupérer des lignes d'un TXT sous Excel (VBA) Salut Jeff, Par le bié des macros tu peu importer en auto un fichier texte (l'utilisation de l'assistant de création de macro est trés utile) tu n'as plus ensuite qu'a utilisé la fonction instr(1,range("A1").value,chr(10),vbtextcompare) pour trouver ou ce situe ton retour chariot en retour à la ligne (chr(10)). Et voili voilu... Wilfried ;-)

14/12/2004, 17h52	#3 (permalink)
michel Guest Messages: n/a	Re: Lignes d'un fichier texte dans le corps d'un message Outlook bonsoir Jeff , bonsoir Wilfried tu peux essayer Sub EvoiMail_TexteIssuFichierTexte() 'Evoi Mail Sans Message Confirmation 'testé avec XP 'Send using the Pickup directory on the IIS server. 'adapté de : http://support.microsoft.com/default.aspx?kbid=286430 Dim iMsg As Object, iConf As Object Dim Fichier As String, Cible As String, Resultat As String Dim Valeur As Long Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Fichier = "C:\Documents and Settings\michel\fichierXLD.txt" 'adapter le chemin Resultat = "" Resultat = Resultat & "<HEAD>" Resultat = Resultat & "<BODY>" Open Fichier For Input As #1 Do While Not EOF(1) Line Input #1, Cible 'boucle sur chaque ligne du fichier texte Resultat = Resultat & Cible & "</br>" Loop Resultat = Resultat & "</BODY>" Resultat = Resultat & "" With iMsg Set .Configuration = iConf .To = "xld@leforum.fr"'adapter l'adresse '.From = "youralias@yourdomain.com" .Subject = "test envoi mail" .HTMLBody = Resultat 'insertion variable texe dans le corps du message .Send End With Close 1 'fermeture fichier texte End Sub bonne soiree MichelXld

14/12/2004, 18h24	#4 (permalink)
michel Guest Messages: n/a	Re: Récupérer des lignes d'un TXT sous Excel (VBA) rebonsoir oouuppss... petite precision : la ligne "Dim Valeur As Long" est superflue bonne soiree MichelXld

ANNONCES

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email