Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA Word

VBA Word

8 réponses
Avatar
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
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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





Avatar
Pascal
Bonjour,
J'ai rien dans le corps de tonmessage
"LSteph" a écrit dans le message de news:
%
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


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


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

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



Avatar
Pascal
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


Avatar
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" wrote:
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 -




Avatar
Pascal
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" a écrit dans le message de news:

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





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