lecture des valeurs des lignes d'un fichier texte (vba dans outlook)
Si la 3ème solution t'intéresse, je peux peut-être te proposer un bout de
code
(qui reste à faire), mais ça ne doit pas être trop compliqué.
lecture des valeurs des lignes d'un fichier texte (vba dans outlook)
Si la 3ème solution t'intéresse, je peux peut-être te proposer un bout de
code
(qui reste à faire), mais ça ne doit pas être trop compliqué.
lecture des valeurs des lignes d'un fichier texte (vba dans outlook)
Si la 3ème solution t'intéresse, je peux peut-être te proposer un bout de
code
(qui reste à faire), mais ça ne doit pas être trop compliqué.
Bonjour,
Anor wrote:
|
| Bon je sens que tu vas revenir me dire qu'un message de sécurité
| outlook te gêne,
Y'a plus personne ?
Bon, alors pour mes fans :o), je poste une solution CDO qui contourne le
message de sécurité
Outlook.
JièL, je compte sur toi pour la tester celle-là ;-)
Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure
dans le dossier
système.
Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments
envoyés, ça doit être
faisable
mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem
(pas trop cherché
d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses
mail valides, les unes
sous les autres.
Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine
.from = """Emetteur"""
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
Voilà, ceci dit, pas la peine de croire qu'on peut spammer tout le monde
incognito :
on est quand même identifiable dans les propriétés du message reçu :
Return-Path:
Delivered-To:
Received: (qmail 24672 invoked from network); 2 May 2004 10:48:32 -0000
Received: from Arnaud(lns-vlq-16-82-255-27-xxx.adsl.proxad.net
[82.255.27.xxx])
by postfix3-2.free.fr (Postfix) with SMTP id 55E56C16D
/= mon adresse Adresse IP au moment de l'envoi !!/
X-Mailer: Microsoft CDO for Windows 2000
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour,
Anor wrote:
|
| Bon je sens que tu vas revenir me dire qu'un message de sécurité
| outlook te gêne,
Y'a plus personne ?
Bon, alors pour mes fans :o), je poste une solution CDO qui contourne le
message de sécurité
Outlook.
JièL, je compte sur toi pour la tester celle-là ;-)
Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure
dans le dossier
système.
Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments
envoyés, ça doit être
faisable
mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem
(pas trop cherché
d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses
mail valides, les unes
sous les autres.
Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
Voilà, ceci dit, pas la peine de croire qu'on peut spammer tout le monde
incognito :
on est quand même identifiable dans les propriétés du message reçu :
Return-Path: <emetteur@domaine.com>
Delivered-To: online.fr-adressedudestinataire@free.fr
Received: (qmail 24672 invoked from network); 2 May 2004 10:48:32 -0000
Received: from Arnaud(lns-vlq-16-82-255-27-xxx.adsl.proxad.net
[82.255.27.xxx])
by postfix3-2.free.fr (Postfix) with SMTP id 55E56C16D
/= mon adresse Adresse IP au moment de l'envoi !!/
X-Mailer: Microsoft CDO for Windows 2000
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour,
Anor wrote:
|
| Bon je sens que tu vas revenir me dire qu'un message de sécurité
| outlook te gêne,
Y'a plus personne ?
Bon, alors pour mes fans :o), je poste une solution CDO qui contourne le
message de sécurité
Outlook.
JièL, je compte sur toi pour la tester celle-là ;-)
Pas de référence à cocher du moment que la cdosys.dll ou cdoex.dll figure
dans le dossier
système.
Ah oui, inconvénient, le message n'est pas sauvegardé dans les éléments
envoyés, ça doit être
faisable
mais pas encore trouvé comment passer l'objet de cdo à outlook.mailitem
(pas trop cherché
d'ailleurs)
Le fichier c:fichier.txt doit exister bien évidemment, avec des adresses
mail valides, les unes
sous les autres.
Toujours Alt+F11, puis coller :
Option Explicit
Sub PublipostageCDO()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
' Déclaration tardive ("Late Binding")
Dim CDO_Message As Object
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CreateObject("CDO.Message")
.To = txtLine
.from = """Emetteur"""
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
Voilà, ceci dit, pas la peine de croire qu'on peut spammer tout le monde
incognito :
on est quand même identifiable dans les propriétés du message reçu :
Return-Path:
Delivered-To:
Received: (qmail 24672 invoked from network); 2 May 2004 10:48:32 -0000
Received: from Arnaud(lns-vlq-16-82-255-27-xxx.adsl.proxad.net
[82.255.27.xxx])
by postfix3-2.free.fr (Postfix) with SMTP id 55E56C16D
/= mon adresse Adresse IP au moment de l'envoi !!/
X-Mailer: Microsoft CDO for Windows 2000
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Salut,
Grég wrote:
| Bonjour/soir,
|
| Chez moi ça donne: "Erreur d'exécution '-1456209421 (9ac401f3)' /n
| Erreur interne de l'application" sur la création du Cdo.message :-(
|
Dans le menu outils > références de l'éditeur visual basic, as tu la
possibilité de
cocher microsoft CDO quelque chose ?
le code que tu as collé compile bien ? (menu débogage > compiler)
tu as quelle version de windows ?
Tu peux essayer ce code si tu veux après avoir coché la référence +
compilé :
Sub PublipostageCDOEarly()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
Dim CDO_Message As New CDO.Message
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CDO_Message
.To = txtLine
.from = """Emetteur"""
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Salut,
Grég wrote:
| Bonjour/soir,
|
| Chez moi ça donne: "Erreur d'exécution '-1456209421 (9ac401f3)' /n
| Erreur interne de l'application" sur la création du Cdo.message :-(
|
Dans le menu outils > références de l'éditeur visual basic, as tu la
possibilité de
cocher microsoft CDO quelque chose ?
le code que tu as collé compile bien ? (menu débogage > compiler)
tu as quelle version de windows ?
Tu peux essayer ce code si tu veux après avoir coché la référence +
compilé :
Sub PublipostageCDOEarly()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
Dim CDO_Message As New CDO.Message
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CDO_Message
.To = txtLine
.from = """Emetteur""<emetteur@domaine.com>"
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Salut,
Grég wrote:
| Bonjour/soir,
|
| Chez moi ça donne: "Erreur d'exécution '-1456209421 (9ac401f3)' /n
| Erreur interne de l'application" sur la création du Cdo.message :-(
|
Dans le menu outils > références de l'éditeur visual basic, as tu la
possibilité de
cocher microsoft CDO quelque chose ?
le code que tu as collé compile bien ? (menu débogage > compiler)
tu as quelle version de windows ?
Tu peux essayer ce code si tu veux après avoir coché la référence +
compilé :
Sub PublipostageCDOEarly()
On Error Resume Next
Dim txtLine As String
Dim LeFichier As String
Dim F As Integer
'Déclaration précoce ("Early Binding")
'Cocher la référence à Microsoft CDO for Exchange 2000 librairy
' ou Microsoft CDO for Windows 2000 librairy
Dim CDO_Message As New CDO.Message
LeFichier = "c:fichier.txt"
F = FreeFile
Open LeFichier For Input As #F
Do While Not EOF(F)
Line Input #F, txtLine
If InStr(1, txtLine, "@") > 1 Then
With CDO_Message
.To = txtLine
.from = """Emetteur"""
.Subject = "L'objet du message CDO"
.TextBody = "Le Corps du message CDO"
'.AddAttachment ("c:fichier.txt")
.Send
End With
End If
Loop
Close #F
Set CDO_Message = Nothing
End Sub
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Voilà, tu te positionnes sur la première ligne,
tu mets le bon chemin du fichier txt qui contient les adresses e-mail,
et tu appuies sur la touche F5 ou F8 (pas à pas).
Bon je sens que tu vas revenir me dire qu'un message de sécurité outlook
te gêne,
alors avant de te proposer autre chose, dis nous :
ta Version de windows
ta Version de outlook
Voilà, tu te positionnes sur la première ligne,
tu mets le bon chemin du fichier txt qui contient les adresses e-mail,
et tu appuies sur la touche F5 ou F8 (pas à pas).
Bon je sens que tu vas revenir me dire qu'un message de sécurité outlook
te gêne,
alors avant de te proposer autre chose, dis nous :
ta Version de windows
ta Version de outlook
Voilà, tu te positionnes sur la première ligne,
tu mets le bon chemin du fichier txt qui contient les adresses e-mail,
et tu appuies sur la touche F5 ou F8 (pas à pas).
Bon je sens que tu vas revenir me dire qu'un message de sécurité outlook
te gêne,
alors avant de te proposer autre chose, dis nous :
ta Version de windows
ta Version de outlook