Discussion :

[Phanloga]

Bonjour.

J'ai bien cherché mais pas trouvé de solution exacte à mon problème.

Je recherche une macro OUTLOOK ou EXCEL pour automatiser les actions suivantes :

Chaque semaine, je dois envoyer 32 fichiers EXCEL à 32 destinataires différents.
L'objet et le corps du mail peuvent quant à eux être identiques.

Merci pour votre aide.

Cordialement.

[kiki29]

Salut,peut-être sur http://access.developpez.com/faq/?page=Outlook
ou http://excel.developpez.com/faq/?page=Messagerie
sinon une recherche via Google sur Ron de Bruin

[Phanloga]

Hello Kiki.

Merci pour ta réponse. Malheureusement, tes propositions ne semblent pas répondre à mon cahier des charges (ou je n'ai pas compris).
Il s'agit soit d'envoyer un mail avec le classeur courant, soit le même tableau pour tous, soit à un seul destinataire.

En fait, ce qui serait cool, c'est qu'à partir d'un tableau EXCEL je puisse faire une sorte de mailing.
Colonne A : les adresses des destinataires (32 différents)
Colonne B : le chemin et nom du fichier à joindre (32 différents).
La macro irait puiser dans cette plage pour lancer la procédure.

Je suis vraiment une buse en VBA. Je ne sais qu'utiliser l'enregistreur de macros et ajuster un peu le code, mais dans le cas présent, mes limites sont largement dépassées.

Merci. ;-)

[casefayere]

Bonsoir,
proposition à adapter :

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
Sub envoi()
Dim cel As Range, fc As String, admail As String
Dim responsable As String, messmail As String
responsable = "Toto"
'ci-dessous une feuille "adresses"
For Each cel In Sheets("adresses").Range("A2:a33") 'si les données (adresses mail et fichier à envoyer) sont en A et B
   admail = cel.Value
   fc = cel(1, 2).Value 'attention mettre chemin complet du fichier à envoyer
   messmail = "Bonjour" & Chr(10) & "Ci-joint, le fichier" & Chr(10) & Chr(10) & responsable
   'ci-dessous vérifier le chemin d'outlook
   Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"""
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
      .To = admail
      .Subject = "CHALETS A JOUR" 'Sujet
      .Body = messmail 'Corps du mail
      .Attachments.Add fc
      .Display '.Send     'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
   End With
Next cel
End Sub

[Phanloga]

Bonsoir dom.

L'exécution bute sur la ligne 12 de ton code.

Je reçois le message:

Erreur de compilation: Type défini par l'utilisateur non défini

C'est grave, docteur...?

[casefayere]

Bonsoir,
Je pense qu'il te manque la référence à outlook,
Dans outils => références cherches la référence à outlook
Perso je travailles sous excel 2007 et ma référence est 'Microsoft Outlook 12.0 Object Library"

[Phanloga]

On progresse !

Maintenant, arrêt à la ligne 13.
Message : "Erreur de compilation: Affectation à une constante non autorisée".

P.S. : Je teste actuellement à la maison sous OFFICE 2007, mais c'est pour le travail où nous ne disposons que de la version 2002. Y aura-t-il compatibilité ?

En tout cas, merci.

[casefayere]

Je pense qu'il y aura compatibilité mais au cas où, j'aurai une autre solution.
Par contre pour ton problème à la ligne 13, je ne comprends pas, as-tu déclaré les variables ;

Code :

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

1
2
Dim ol As New Outlook.Application
Dim olmail As MailItem