Discussion :

[kedmard]

Bonjour,
voici mon problème j'ai un classeur Excel (2007) qui contient 5 feuilles dont les données sont liées à une table Access c'est-à-dire que lorsque je modifie ma table Access , je modifie également mes données dans ma feuille Excel associée.

Je souhaite envoyer de façon automatique un mail (via Outlook) qui contiendrait un petit texte plus certaines feuilles de mon classeur Excel en pièce jointe à une liste de destinataire prédéfinie.

Quelqu'un aurait une solution pour moi?

Merci d'avance,


Kedmard.

[young 25]

bonjour,

regarde ce que j'avais utilisé, si cela peut d'inspirer
reste à modifier les adresses mail dans .item.To
A+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Envoi_Mail2()
Sheets("Feuil1").Select
Range("B1:F11").Select
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "Bonjour," & Chr(10) & Chr(10) & "Ci-joint le document demandé." & Chr(10) & "Dans l'attente de votre retour" & Chr(10) & Chr(10) & "Salutations" & Chr(10) & "David" & Chr(10) & "A+" & Chr(10) & Chr(10)
    .Item.To = "toto.fr"
    .Item.Subject = "doc"
    .Item.Send
End With
End Sub

[kiki29]

Salut de la lecture http://excel.developpez.com/faq/?page=Messagerie
http://access.developpez.com/faq/?page=Outlook ou de la recherche sur Ron de Bruin

[kedmard]

Merci Messieurs de vos réponses presque instantanées,

Young 25, j'aime ton code qui m'a l'air très simple, j'ai cependant quelques questions:

sur ta ligne 9

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Item.Subject = "doc"

est-ce le chemin du fichier qu'il faut in diquer?

ce code doit-être rattaché à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Thisworkbook

?


Qu'est ce que je fais si j'ai plusieurs destinataires?


Merci

[young 25]

re,

sur ta ligne 9
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

.Item.Subject = "doc"

est-ce le chemin du fichier qu'il faut in diquer?

c'est le code pour indiquer le sujet du mail

ce code doit-être rattaché à
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

Thisworkbook

?

désolé je n'ai pas d'explication a te donner cela vient du forum.

Qu'est ce que je fais si j'ai plusieurs destinataires?

.Item.To = "toto.fr, tata.fr,titi.fr"

[kedmard]

Kiki29, je te remerci pour tes liens de lecture je les ai consulté et me suis inspiré pour

adapté le code suivant:

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
Option Explicit
 
Sub Tst_Wb()
Dim SourceWb As Workbook
Dim CdoMessage As Object
Dim Fichier As String
 
    Set SourceWb = ActiveWorkbook
    Fichier = ThisWorkbook.Path & Application.PathSeparator & "vba.xlsx"
 
    SourceWb.SaveCopyAs Fichier
 
    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Exemple"
        .From = "kelmard2001@yahoo.fr"
        .To = "kedmardy@yahoo.fr"
        .CC = ""
        .BCC = ""
        .TextBody = "Texte dans le corps de message"
        .AddAttachment Fichier
        .Send
    End With
 
    Set CdoMessage = Nothing
    'Kill Fichier
End Sub

Au finish j'ai l'erreur ci-joint(voir fichier joint)

J'ai bien sûr coché la référence indiqué dans la FAQ.


Merci pour par avance ta réponse

[SfJ5Rpw8]

..
Au finish j'ai l'erreur ci-joint(voir fichier joint)

..

plutôt qu'une copie d'écran qui sert à rien tu pourrais recopier ici le message dans apparaissant dans le messageBox et nous dire qu'elle ligne il concerne .!!

un peu de lecture pour comprendre comment interpréter ces erreurs :
http://darkvader.developpez.com/tuto...isual-basic-6/