Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
BonjourBonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:17:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:17:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
BonjourBonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:17:55
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les m êmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word p our
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les m êmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word p our
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les m êmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word p our
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le m ême
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaq ue
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macr o,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote Outloo k.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envo yer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le m ême
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaq ue
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macr o,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote Outloo k.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envo yer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174033319.901941.285...@n59g2000hsh.googlegroups.com...
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = "boisgont...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le m ême
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaq ue
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macr o,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote Outloo k.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envo yer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174033319.901941.285...@n59g2000hsh.googlegroups.com...
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = "boisgont...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" a écrit dans le message de news:
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" wrote:Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée ch aque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par ma cro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'en voyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Wo rd
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174035740.867263.220...@d57g2000hsg.googlegroups.com...
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" <lapl...@wanadoo.fr> wrote:
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée ch aque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par ma cro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'en voyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174033319.901941.285...@n59g2000hsh.googlegroups.com...
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = "boisgont...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Wo rd
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" a écrit dans le message de news:
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" wrote:Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée ch aque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par ma cro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'en voyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Wo rd
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com- Mas quer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" a écrit dans le message de news:
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" wrote:Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174035740.867263.220...@d57g2000hsg.googlegroups.com...
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" <lapl...@wanadoo.fr> wrote:
Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1174033319.901941.285...@n59g2000hsh.googlegroups.com...
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = "boisgont...@hotmail.com"
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" <lapl...@wanadoo.fr> wrote:
Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB" a écrit dans le message de news:
Sur cet exemple, tout est piloté par Excel:
-Création d'une lettre .Doc avec OLE puis envoi en PJ par Outlook. La
lettre type contient des signets (Nom,Rue,Ville)
-Envoi de la lettre en PJ
http://cjoint.com/?dqj43hbRZc
Sub ole()
Dim oApp As Word.Application, doc As Word.Document
Range("A2").Select ' premier client
Do While Not IsEmpty(ActiveCell)
On Error Resume Next
nf = ThisWorkbook.Path & "malettre.doc"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
Set doc = oApp.Documents.Open(nf)
If Err <> 0 Then
MsgBox "Le fichier malettre.doc doit être dans " &
ThisWorkbook.Path
Exit Sub
End If
On Error GoTo 0 ' Annule la gestion d'erreur
'--
nom = ActiveCell.Value
rue = ActiveCell.Offset(0, 1).Value
ville = ActiveCell.Offset(0, 2).Value
email = ActiveCell.Offset(0, 3).Value
'--
With doc
.Bookmarks("nom").Range.Text = nom
.Bookmarks("rue").Range.Text = rue
.Bookmarks("ville").Range.Text = ville
End With
nom_doc = ThisWorkbook.Path & "" & nom & ".doc"
doc.SaveAs nom_doc
oApp.Quit
'------------------------ envoi par mail
Dim olapp As Outlook.Application
Dim Msg As MailItem
Set olapp = New Outlook.Application
Set Msg = olapp.CreateItem(olMailItem)
Msg.To = email
Msg.Subject = "Votre lettre"
Msg.Body = "Veuillez trouver ci joint...."
Msg.Attachments.Add Source:=nom_doc
Msg.Send
Set olapp = Nothing
ActiveCell.Offset(1, 0).Select ' Client suivant
Loop
Set oApp = Nothing
MsgBox "Message envoyé"
End Sub
JB
On 16 mar, 09:34, "Pascal" wrote:Merci JB ton classeur est super.
Mais une ou deux questions
Comment faire quand les contacts sont dans XL pour envoyer toujours le
même
message avec toujours la même pièce jointes.
Je m'explique à partir de XL j'ai une liste de contact alimentée chaque
jour.
Par un filtre élaboré j'extrait certains contacts et ensuite par macro,
j'ouvre un doc Word pour un publipostage. Et c'est Word qui pilote
Outlook.
Jusque là tout va bien.
Là ou je bloque c'est pour la pièce jointe je n'arrive pas à l'envoyer.
Maintenant si il y a une solution pour se passer d'ouvrir Word.
Pascal
"JB" a écrit dans le message de news:
Bonjour,
Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add Source:="c:mes documentsx.doc"
msg.Send
End Sub
http://boisgontierj.free.fr/fichiers/jb-outlook.zip
JB
On 16 mar, 08:53, "Pascal" wrote:Bonjour,
Une simple question, les procédures VBA Word et Excel sont-elles les
mêmes?
Si tel est le cas, quelqu'un peut-il m'aider à terminer ma Macro Word
pour
envoyer un mail avec pièces jointes?
Merci
Pascal
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 08:53:24
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:23:05
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:34:33
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:04:39
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 10:18:29
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com-
Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -