Discussion :

[un4given2]

Bonjour,

Je poste pour la premiere fois un message sur ce forum que je trouve très enrichissant, après avoir fais quelques recherches sans succes,

je m'adresse à vous puisque je suis un novice

avez vous une idée de la faisabilité de cette requete qui me permetterait depuis un fichier excel (ou outlook) d'envoyer un email type à des destinataires en "CCi" qui seront dans le fichier Excel sur plusieurs cellules de ce fichier (ou au pire une seule)

merci de votre aide , je continue mes recherches

++
U4

[COCONUT2]

Salut à toi petit nouveau.

Effectue une recherche avec en mot clé Outlook dans le forum Excel et tu auras la macro à utiliser.

Par contre du devra passer par une macro donc ce message devrait etre transferrer dans VBA Excel.

Bien sur si tu ne trouves pas ton bonheur, tu nous dis.

[COCONUT2]

Allez, je ne suis pas vache.

Dans les procédures proposées, il faut activer les références à Outlook ce qui permet d'utiliser les lignes de commandes Outlook dans Xl.
Dans VB Excel, Outil\ Réferences
Selectionner Outlook


Alors la procédure de déclaration des Mail est la suivante:

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
'on déclare les objets 
                Dim Otk As Object
                Dim ObjItem As Object
'et on les ouvre
                Set Otk = CreateObject("outlook.application")
                Set ObjItem = Otk.CreateItem(0)
 'dans le message
                With ObjItem
'To désigne les personnes destinataires
                    .To = mychef@entreprise.com
'CC désigne les personnes en copie
                    .CC= Mycollegue@entreprise.com
'Subject donne l'intitulé du message
                    .Subject = "Kesako que ce message?"
'Body donne ce qu'il va y avoir dans le message
'Soit body est simple et on le met directement ou alors, on peut copier
'ici le texte d'une cellule XL (Plus facile pour la mise en forme)
                    .Body = letexte
 'Integrer 1 ou plusieurs fichiers au mail
                    .Attachments.Add "D:\mes documents\lisez moi.doc"
                     .Attachments.Add "D:\mes documents\Package.zip"
 'Envoyer le message
                    .Display
                    .Send
                End With
 
                Set Otk = Nothing

Enfin, si Outlook te bloque parceque c'est un message automatique d'une macro, télécharger le programme ClickYes sur internet.

Suis sympa non? :-)