[Excel/Macro] Envoi d'Email après enregistrement

Version imprimable

29/11/2005, 15h40
Myogtha

[Excel/Macro] Envoi d'Email après enregistrement

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

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

Code:

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+

29/11/2005, 16h02
DarkVader

Utilise l'évènement Before save
et regarde du coté de ActiveWorkbook.SendForReview
29/11/2005, 16h33
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 ?
29/11/2005, 16h39
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... :wink:
Il ne dit plus rien mais je sais bien qu'il m'en veut... :lol:

A+
29/11/2005, 16h42
Myogtha

oky j'ai nada compris mais c'est pas grave ça sent le délire ....
On peut revenir à mes choux ?
29/11/2005, 16h46
ouskel'n'or

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

Citation:

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+
29/11/2005, 19h19
DarkVader

Je croyais avoir donné la réponse !

Dans ton style d'exemple, peut-être que du coté d'un controle MAPI ... %)
29/11/2005, 23h12
SfJ5Rpw8

Citation:

Envoyé par 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 ?

as tu rajouté "Miscrosoft Outlook 9.0 Object Library" en référence dans ton projet ( menu outils..)
:roll: :wink:
30/11/2005, 09h15
Myogtha

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