Discussion :

[relenaheero]

bonjour,
Je cherche à faire une macro dans Ms Word 2003 pour envoyer le fichier ouvert à une personne déterminée.
Actuellement j'ai essayé avec :

Code :

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

1
2
3
4
Sub envoimail()
      Application.Options.SendMailAttach = True   'Or False
      ActiveDocument.SendMail
End Sub

Ceci m'envoit le fichier ouvert en pièce jointe avec les dernières modifications mais je n'arrive pas à mettre un email en automatique ainsi que l'objet de l'email.
Connaissez-vous une autre solution ?
Merci d'avance

Réléna

[Heureux-oli]

Salut,

Peut-être une piste ?
http://access.developpez.com/faq/?pa...ailPieceAttach

[EmmanuelleFFH]

Bonjour,

Je cherche à faire la même chose que "relenaheero" et que cela soit le plus simple possible à mettre en place vu que je n'ai aucune connaissance en VBA et que je débute pour l'utilisation des macros.

Comment pourrais-je créer une macro permettant au destinataire d'un formulaire d'y répondre et de le renvoyer à l'expéditeur en utilisant que Word et sans devoir saisir le destinataire dans le mail, en sachant que le 1er expéditeur du formulaire varie.

J'ai déjà pu, dans excel, enregistrer une macro qui envoie le classeur actif mais je ne sais pas comment faire pour que l'adresse du destinataire soit saisie automatiquement.

Nous utilisons thunderbird comme messagerie.

Merci à tous pour votre aide !

Emmanuelle

[relenaheero]

Salut,

Peut-être une piste ?
http://access.developpez.com/faq/?pa...ailPieceAttach

J'ai essayé le code qui est dans ce lien, cela ne fonctionne pas sous word 2003. Avez-vous une autre solution ? Je n'ai toujours rien trouvé.
Merci d'avance.
Cordialement.
Réléna

[Heureux-oli]

Salut,

J'ai pas dit qu'il fallait utiliser le code tel quel, il faut l'adapter pour que ça fonctionne en Word.

[relenaheero]

Je ne suis pas arrivé à l'adapter à Word, même avec l'aide de Visual basic .
Connaissez-vous une autre solution ?
Merci d'avance.
cordialement.
Réléna

[Heureux-oli]

Salut,
Possèdes-tu Outlook ?

[relenaheero]

Oui depuis ce fichier c'est avec Outlook que je veux transmettre par email.
Cordialement
Réléna

[Heureux-oli]

Salut,
voilà un exemple sous Word.

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
Sub envoiParMail()
'
'Avec ce code Outlook doit être ouvert
'Déclaration des varaibles
Dim oA As Outlook.Application
Dim oMI As Outlook.MailItem
Dim oAtt As Outlook.Attachments
'Sauvegarde du document
ActiveDocument.SaveAs2 "c:\temp\DocMailed.docm"
'Affectation des variables
Set oA = Outlook.Application
Set oMI = oA.CreateItem(olMailItem)
Set oAtt = oMI.Attachments
 
oAtt.Add "c:\temp\DocMailed.docm"
'Détail du message
oMI.To = "MonDestinatiare@lemail.com"
oMI.Subject = "Test"
oMI.Body = "Body of MailItem"
oMI.Send
'Libaration des objets
Set oAtt = Nothing
Set oMI = Nothing
 
 
End Sub

[relenaheero]

Bonjour,
J'ai essayé le code cité avec outlook ouvert, j'ai une erreur sur "oA As Outlook.Application" le message d'erreur est en pièce jointe.
Es-tu sur que cela fonctionne sur Word 2003 ?
Merci d'avance.
Cordialement
Relena

Salut,
voilà un exemple sous Word.

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
Sub envoiParMail()
'
'Avec ce code Outlook doit être ouvert
'Déclaration des varaibles
Dim oA As Outlook.Application
Dim oMI As Outlook.MailItem
Dim oAtt As Outlook.Attachments
'Sauvegarde du document
ActiveDocument.SaveAs2 "c:\temp\DocMailed.docm"
'Affectation des variables
Set oA = Outlook.Application
Set oMI = oA.CreateItem(olMailItem)
Set oAtt = oMI.Attachments
 
oAtt.Add "c:\temp\DocMailed.docm"
'Détail du message
oMI.To = "MonDestinatiare@lemail.com"
oMI.Subject = "Test"
oMI.Body = "Body of MailItem"
oMI.Send
'Libaration des objets
Set oAtt = Nothing
Set oMI = Nothing
 
 
End Sub

[Heureux-oli]

Salut,

Il faut ajouter la référence à la bibliothèque Outlook dans le projet.

Outils => References et choisir Outlook dans la liste.

[relenaheero]

C'est génial tout fonctionne à merveille. Merci beaucoup.