VBA Word

Le
Pascal
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #4248731
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





Pascal
Le #4248711
Bonjour,
J'ai rien dans le corps de tonmessage
"LSteph" %
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








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 09:19:16
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


JB
Le #4248701
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"
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


Pascal
Le #4248681
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"
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"
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

JB
Le #4248651
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"
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"
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"
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



Pascal
Le #4248641
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB"
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"
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"
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"
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


JB
Le #4248601
Une boucle sur le résultat du FA devrait suffire:

Sub EnvoiMailSimple()
For Each c In Range("A2", [A65000].End(xlUp))
Set olapp = CreateObject("Outlook.Application")
Set Msg = olapp.CreateItem(0)
Msg.To = c.Offset(0, 3).Value ' email en colonne D
Msg.Subject = "xxxxx"
corps = "Cher xxx" & Chr(13) & Chr(13)
corps = corps & "xxxxxx"
Msg.Body = corps
Msg.Attachments.Add Source:="c:mes documentsx.doc"
Msg.Send
Next c
End Sub

Si la boucle se fait sur le résultat d'un Filtre auto:

For Each c In Range("A2",
[A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)

JB


On 16 mar, 10:11, "Pascal"
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB"
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"




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"
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"
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 -




Pascal
Le #4248581
Ca yest ce j'ai trouvé.
Mais sur la ligne Msg.Body = "Veuillez trouver ci joint...."
A la place de "Veuillez trouver ci joint...." puis-je mettre un chemin vers
un fichier doc puisque mon texte est assez long
Pascal


"JB"
Une boucle sur le résultat du FA devrait suffire:

Sub EnvoiMailSimple()
For Each c In Range("A2", [A65000].End(xlUp))
Set olapp = CreateObject("Outlook.Application")
Set Msg = olapp.CreateItem(0)
Msg.To = c.Offset(0, 3).Value ' email en colonne D
Msg.Subject = "xxxxx"
corps = "Cher xxx" & Chr(13) & Chr(13)
corps = corps & "xxxxxx"
Msg.Body = corps
Msg.Attachments.Add Source:="c:mes documentsx.doc"
Msg.Send
Next c
End Sub

Si la boucle se fait sur le résultat d'un Filtre auto:

For Each c In Range("A2",
[A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)

JB


On 16 mar, 10:11, "Pascal"
Merci jb; Je dois maintenant compiler tes deux classeurs, car sur ton
dernier exemple le courrier est envoyé à tout le monde.
"JB"
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"




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"
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"
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 -





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000724-0, 15/03/2007
Analyse le : 16/03/2007 11:07:22
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 11:09:58
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com



Publicité
Poster une réponse
Anonyme