Discussion :

[Myogtha]

Voilà je voudrais que quand j'enregistre mon document excel trois Emails soient envoyés à mes trois collègues afin qu'ils soient au courant de la modification de ce document et est ce qu'il est possible de faire une variante sur un autre doc avec un bouton qui envoi l'email (pour qu'il ne soit pas onligatoire à chaque enregistrement)
Merci d'avance
Excel/Macro/Vba
Jim

[ouskel'n'or]

J'avais trouvé ça sur le forum et l'avais noter à tout hasard...

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Mail()
 
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem
 
On Error Resume Next
 
'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    'Outlook wasn't running, start it from code
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
 
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
 
With oItem
    'Set the recipient for the new email
   .To = "titi@huji.com"
    'Set the recipient for a copy
    '.CC = "recipient2@mail.com"
    'Set the subject
    .Subject = " "
    'The content of the document is used as the body for the email
    .Body = "Bonjour" & vbCrLf & "Veuillez trouver ci-joint le contrat demandé." & vbCrLf
    .Attachments.Add source:="G:\titi.xls"
    .Send
End With
 
If bStarted Then
    'If we started Outlook from code, then close it
    oOutlookApp.Quit
End If
 
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
 
End Sub

Je n'ai changé que l'extension de Titi vu que le fichier envoyé était en pdf... (non, il n'y a rien d'ambigu dans ma phrase !)
Désolé de ne pas avoir noté le nom de l'auteur.

Si ça peut t'aider...

A+

[DarkVader]

Utilise l'évènement Before save
et regarde du coté de ActiveWorkbook.SendForReview

[Myogtha]

Merci je sais pas pourquoi elle veut pas se lancer en m'expliquant qu'un type défini par l'utilisateur non défini en surlignant de jaune le sub mail() et en bleu le Dim oOutlookApp As Outlook.Application
Tu est ou exactement à la tronche ouskel'n'or ? je suis à la Zirst (Inovallé !!) à Meylan ?
je vais regardé du coté du before aussi merci

edit : Outlook.Application et utlook.MailItem sont en noir ça doit vouloir dire qu'il ne connait pas ces types ?

[ouskel'n'or]

Hello Myogtha,
Je ne suis pas à la Tronche mais à Grenoble, le patelin à côté de La Tronche, Saint-Martin-d'Hères, etc.
Ainsi ça me permet de demander à AlainTech à côté de quelle ville se trouve Bruxelles...
Il ne dit plus rien mais je sais bien qu'il m'en veut...

A+

[Myogtha]

oky j'ai nada compris mais c'est pas grave ça sent le délire ....
On peut revenir à mes choux ?

[ouskel'n'or]

Maintenant, je vais au moins tenter de répondre à l'une de tes questions

elle veut pas se lancer en m'expliquant qu'un type défini par l'utilisateur non défini en surlignant de jaune le sub mail() et en bleu le Dim oOutlookApp As Outlook.Application

Il doit te manquer quelque chose dans ta bibliothèque qui fasse référence à outlook. Malheureusement, là je ne peux pas t'aider, j'ai jamais utilisé cette procédure et je n'ai pas outlook comme messagerie (pour autant que ce soit bien ça)
Mais DarkVader ne va certainement pas tarder...

Bon courage (je guette...)

A+

[DarkVader]

Je croyais avoir donné la réponse !

Dans ton style d'exemple, peut-être que du coté d'un controle MAPI ... %)

[SfJ5Rpw8]

Merci je sais pas pourquoi elle veut pas se lancer en m'expliquant qu'un type défini par l'utilisateur non défini en surlignant de jaune le sub mail() et en bleu le Dim oOutlookApp As Outlook.Application
Tu est ou exactement à la tronche ouskel'n'or ? je suis à la Zirst (Inovallé !!) à Meylan ?
je vais regardé du coté du before aussi merci

edit : Outlook.Application et utlook.MailItem sont en noir ça doit vouloir dire qu'il ne connait pas ces types ?

as tu rajouté "Miscrosoft Outlook 9.0 Object Library" en référence dans ton projet ( menu outils..)

[Myogtha]

Effectivement j'ai rajouté Miscrosoft Outlook 10.0 Object Library puis DAO et ça marche Merci à tous