Joindre publipostage ds un mail

Fermé
kakashingo Messages postés 4 Date d'inscription vendredi 11 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008 - 11 janv. 2008 à 13:19
kakashingo Messages postés 4 Date d'inscription vendredi 11 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008 - 11 janv. 2008 à 13:23
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)
A voir également:

1 réponse

kakashingo Messages postés 4 Date d'inscription vendredi 11 janvier 2008 Statut Membre Dernière intervention 18 janvier 2008
11 janv. 2008 à 13:23
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
0