Discussion :

[Domino40]

Bonsoir,

Nouveau jour, nouveau problème !

Sous Word, je voudrais envoyer le doc actif par mail via du VBA

Y a t il un option qui permettrait que mon destinataire ne puisse pas modifier mon document. Autrement dit, que ça ne parte pas en pièce jointe.

J'ai assayé la syntaxe ci dessous, mais ça ne fonctionne pas.


Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub EnvoiMail()
 
Dim monmail As String
 
monmail = ThisDocument.Bookmarks("mail1").Range.Text
 
ActiveDocument.SendMail Recipients:=monmail, _
Subject:="Test Envoi de Mail", _
ReturnReceipt:=True
 
 
 
 
End Sub

[Heureux-oli]

Salut,

La solution serait de mettre le contenu du document en Message.

Quelle est ta version de Word et ta version d'Outlook si tu possèdes Outlook ?

[Domino40]

Bonsoir et merci de vous soucier de mon cas.


J'ai une version Word et Oulook 2003.

Domino.

[Heureux-oli]

La solution serait d'utiliser Outlook pour l'envoi de tes documents.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub envoiDoc()
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oAtt As Outlook.Attachment
 
Set oApp = GetObject(, "Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
 
ActiveDocument.Save
 
 
Set oAtt = oMail.Attachments.Add(ActiveDocument.FullName)
Debug.Print "ok"
 
oMail.To = "moi@fai.com"
oMail.Subject = "Sujet du mail"
oMail.Body = "Corps du mail"
 
oMail.Send
 
Set oApp = Nothing
 
 
 
 
End Sub

[Domino40]

Bonjour,

Le code code suivant me génère l'érreur suivante :


--> Erreur de compilation

Le déboggage se positionne sur --> oApp As Outlook.Application

--> Type défini par l'utilisateur non défini

Je n'ai aucune idée d'où cela provient


Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim oApp As Outlook.Application
Dim oMail As Outlook.MailItem
Dim oAtt As Outlook.Attachment
 
Set oApp = GetObject(, "Outlook.Application")
Set oMail = oApp.CreateItem(olMailItem)
 
ActiveDocument.Save
 
 
Set oAtt = oMail.Attachments.Add(ActiveDocument.FullName)
Debug.Print "ok"
 
oMail.To = "d.lahitte@neuf.fr"
oMail.Subject = "Sujet du mail"
oMail.Body = "Corps du mail"
 
oMail.Send
 
Set oApp = Nothing

[Heureux-oli]

Salut,

Tu dois ajouter la référence à la bibliothèque Outlook dans ton projet.

Outils Référence et Choisir Outlook dans la liste

[Domino40]

Bonsoir,

Merci, Heureux-oli,

Pour la référence à la bibliothèque Outlook.

On avance, mais j'ai encore un code erreur

Erreur'429'
Un composant activeX ne peut pas créer l'objet

A+
Domino40

[Heureux-oli]

C'est parce que Outlook n'est pas ouvert sur ton ordi.
Si outlook n'eszt pas ouvert, la commande est différente, mais tu vas avoir un MsgBox pour chaque message envoyé.

[Domino40]

Bonsoir

J'en connais un qui va passer une bonne nuit !

Merci Heureux-oli, ca marche du feu de Dieu !

Allez soyons fous,

Y a t il un option qui permettrait à ce que mon destinataire ne puisse pas modifier le doc. Comme un PDF quoi. En effet, le doc est reçu en pièce jointe. Peut on inclure le contenu dans le corps du Mail.

Dernière quetion .............. pour ce soir,

Est il possible que VBA puisse envoyer, alors là pour le cout en pièce jointe un PDF déja stoké dans un répertoire.


Encore Merci
Domino40.

[Heureux-oli]

Oui, VBA peut envoyer un PDF en pièce jointe.
Si tu veux que ton document ne puisse pas être modifié, il faut le protéger par mot de passe et on peut aussi le faire en VBA.

Si tu veux que le corps du message soit le texte de ton document, il suffit de transférer le contenu du document dans le Mail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oMail.Body = ActiveDocument.Range.Text

[Domino40]

Bonsoir

Encore merci pour vos bons conseils et votre RAPIDITE. C'est tout simplement Génial !

Sans vouloir abusez, je suis super preneur de pouvoir envoyer un mail avec en pièce jointe un PDF.

Très cordialement,

Domino40.

[Heureux-oli]

Salut,

un peu d'effort

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set oAtt = oMail.Attachments.Add(ActiveDocument.FullName)

Il faut remplacer ActiveDocument.FullName par le chemin du fichier PDF !