Discussion :

[kbj_ihma]

Bonjour,
J'ai crée un bouton de contrôle dans un document Word;
L'idée est d'abord : d'enregistrer sous : le document actuel, puis de l'envoyer en pièces jointes.
Le souci c'est que je n'arrive pas à adapter mon code pour faire tout çà avec ma messagerie par défaut et non forcément outlook.
Voici mon code, et en vous remerciant par avance :

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
Private Sub CommandButton1_Click()
 Dim olMailItem As Integer
 Dim myAttachments
 Dim ol As Object, myItem As Object
 Set ol = CreateObject("outlook.application")
 Set myItem = ol.CreateItem(olMailItem)
dlgAnswer = Dialogs(wdDialogFileSaveAs).Show
 myItem.to = "test@test.com"
 myItem.Subject = "Demande de lancement d'une consultation"
 myItem.Body = "ci-joint le questionnaire" & Chr(13) & Chr(13) & "Cordialement"
 Set myAttachments = myItem.Attachments
 myAttachments.Add ActiveDocument.FullName
 myItem.Display
 Set ol = Nothing
End Sub

[Heureux-oli]

Salut,

Ça va pas le faire avec ce code qui est spécifique à Outlook.

Il faut récupérer dans les paramètres de Windows le client de messagerie.
Mais surtout, il faut qu'il soit compatible et pilotable par VBA, ce qui est nettement moins évident voire dans la majorité des cas pas possible.

La solution est de passer par CDO qui est installé par défaut avec Windows.

[kbj_ihma]

Bonjour,
J'ai novell groupwise, et quand je remplace Outlook.application dans le code par novell groupwise.application ça ne marche pas.
Par contre sur excel j'arrive à mettre une macro qui génère un mail par la messagerie par défaut, mais pas sur word...
Et concernant cdo de windows, c'est quoi exactement ?
Merci

[Heureux-oli]

Salut,

C'est Collaboration Data Object.

[kbj_ihma]

Bonsoir,
Vous pouvez me proposer une modification de mon code pour pouvoir tester ??
pour le CDO, si c'est quelque chose qui doit s'installer, je ne pourrai pas le faire, car au boulot je n'ai pas le droit d'installer des logiciels.

Cordialement

[Heureux-oli]

Salut,

CDO est installé avec Windows.

Une ébauche de solution là : http://access.developpez.com/faq/?pa...ailPieceAttach