Joindre publipostage ds un mail

Question

Bonjour,

Je débute access et apres avoir parcouru de nombreux forum je me decide a exposer mon probleme

J'explique mon problème 

J'ai réalisé un publipostage pour le moment tout va bien je clique sur mon bouton et il me remplit une page WORD 

C'est la que tout se corse (enfin pour moi)
Bon ce que je souhaite pour le moment c'est que lorsque je clique sur le bouton il me remplit bien mon doc WORD mais aussi qu'il me le mette en piece jointe sous Outlook (et pourquoi pas par la suite qu'il me rentre automatiquement le(s) destinataires)

kakashingo · Answer

voici le code que j'ai tappé

Ici je remplis mon doc WORD donc pas de souci pour le moment :

Private Sub Routlook_Click()
Dim nom2
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
With oApp
.Documents.Add Template:="C:\Documents and Settings\Nraymond\Bureau\Action.doc"
With .Selection
.GoTo , , , "Référence"
.insertafter Forms![Actions]!Référence
.GoTo , , , "Demandeur"
.insertafter Forms![Actions]!Demandeur
.GoTo , , , "Description"
.insertafter Forms![Actions]!Description
.GoTo , , , "Etat"
.insertafter Forms![Actions]![Etat]
.GoTo , , , "Commentaires"
.insertafter Forms![Actions]![Commentaire]
.GoTo , , , "Objectif"
.insertafter Forms![Actions REX2]![Objectif]
End With
End With

La ça se corse

Dim olApp As Outlook.Application
Dim email As Outlook.MailItem
Set olApp = New Outlook.Application
 
Set email = olApp.CreateItem(olMailItem)
       
With email
    .To = "adresse@mail.fr"
    .Subject = "Ma société"
    .Attachments.Add "C:\Documents and Settings\Nraymond\Bureau\Action.doc"
    .Body = "Ceci est un test. Ne pas répondre à ce message."
    '.Display
    .Send
    End With
End Sub

Donc j'ai bien l'envoi d'un doc WORD en pièce jointe mais le WORD n'est pas remplit, ce qui est normal (parce que c'est le meme doc que mon WORD "corps" --->"C:\Documents and Settings\Nraymond\Bureau\Action.doc") mais je ne sais pas comment rectifier ce probleme

Merci d'avance,

J'espere avoir été clair

Joindre publipostage ds un mail

1 réponse

Discussions similaires

Newsletters