Discussion :

[3688marie]

Bonjour à tous,
Je suis nouvelle sur le site et je ne sais pas très bien comment m’y prendre ! Aussi je souhaiterais que vous puissiez m’aider.
Je suis ouverte bien sûr à toute critique et à tout commentaire ne correspondant pas à ce forum, ou tout simplement à ma demande.
Je connais Excel et les tableaux croisés dynamiques, mais je suis complètement novice en Macro ou langage VBA.
Depuis quelque temps, j’essaie de faire une macro qui me permettrait de gérer les centres de formations pour lesquels je travaille et d’envoyer automatiquement un mail à la personne responsable de ce centre pour un rappel trois mois avant la date d’échéance du retour de prêt.
Je parcours votre site, je lis beaucoup d’information, mais je n’arrive pas à le mettre en application.
Je suis tout à fait prête à m’investir, mais j’aurais besoin d’une aide.
Je travaille sous Windows 7, Excel 2010 et Microsoft Office Outlook 2007.
Dans mon tableau Excel qui comprend sept colonnes et une cinquantaine de lignes, j’ai insérer deux formules :
=MOIS.DECALER(D2;-3) en colonne D et
=E2<=AUJOURDHUI() en colonne F
Mon Email dont l’objet est « Info. Return loan order » devrait se composer de la façon suivant :
Hello,
For your information, loan no. 41193855 EGES - Valencia, will end on 20/04/2011.
Thanks a lot for your prompt action.
Kind regards,
Marie
Je suis vraiment désolée, mais je travaille sur l’Europe et je dois envoyer ce mail en anglais. Mais je peux vous le communiquer en français car dans une macro, je sais corriger le texte (ce n’est pas grand-chose me direz-vous…).
Je vous joins une partie de mon tableau et vous remercie de votre compréhension,
Cordialement,
3688marie

[casefayere]

Bonjour Marie, re le forum,

comment veux-tu envoyer le mail ? :
- automatiquement, suivant la date en D (si le fichier est ouvert) ?
- en appuyant sur un bouton de commande ?
- en cliquant sur l'adresse mail du destinataire ?
- Pour avancer quel est ton serveur SMTP ? (EX : smtp.free.fr, smpt.orange.fr...)
ensuite par souci de discrétion, j'introduirai deux inputbox qui demanderont de confirmer, un l'expéditeur, l'autre le destinataire.
tu pourras les supprimer par la suite quand tu auras compris,
dernière question enverras-tu toujours par l'intermédiaire d'outlook ?

[3688marie]

Bonjour Dom,
Merci beaucoup pour cette réponse rapide.
Je souhaiterai envoyer le mail automatiquement suivant la date en D : Est-il obligatoire que le fichier Excel soit ouvert ?
Mon serveur SMTP est numericable
Effectivement, je ne l’ai pas précisé dans ma demande, mais je souhaiterais deux inputbox.
J’enverrai toujours par l’intermédiaire d’Outlook, même si je transfert ce dossier sur mon ordinateur professionnel, je travaille à la maison !
Encore merci pour ton aide,
Bonne journée,
Marie

[casefayere]

Je travaille dessus mais j'ai oublié de demander s'il y aura une pièce jointe avec le message.
Je ne connais pas le serveur "smtp" de numéricable" est-ce "SMTP.numericable.fr" ?

[3688marie]

Dom,
Il n'y aura pas de pièces jointes à ce message, les personnes qui traitent les dossiers ont juste besoin d'un rappel avec le texte que j'ai fourni.
Effectivement le serveur "SMTP" de numéricable" est "smtp.numericable" et le serveur entrant est "pop.numericable.fr"
Bon courage à toi,
Marie

[casefayere]

Une première approche, voir fichier joint,
à l'ouverture du classeur (je ne sais pas faire avec classeur fermé)
la macro se lance, tu pourras temporairement te mettre en destinataire pour controler, après on modifiera si tu veux.
Attention, pour cette macro, dans l'éditeur VBA penses à selectionner la reference à Outlook, pour moi c'est "Microsoft Outlook 12.0 Object Library"
Ne tiens pas compte, pour l'instant de tout ce qui est en vert

[casefayere]

Voila,
Pour l'instant, je suis resté sur la notion de "Vrai" de la colonne F et rassemblé les personnes à relancer en un seul mail, ça devrait fonctionner, par la suite, si tu veux, on enlevera les messages superflus. Voici le fichier

[casefayere]

Re Marie,
ci-dessous un code qui ne prend que la référence à la colonne D,
je laisse toujours avec "'", les éventuels changements que l'on pourra faire, exemple si tu veux recevoir une copie du mail ou si Outlook a un problème pouvoir envoyer le mail en direct (j'ai un autre code pour ça)

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Private Sub Workbook_Open()
Dim ol As New Outlook.Application
Dim olmail As MailItem, plage As Range, laDate As Date
Dim admail As String, cel As Range, j As Long, derlg As Long, nom As String
Dim messmail As String, secours As String, mess As String
With Sheets("feuil1")
   derlg = .Range("A" & .Rows.Count).End(xlUp).Row
   Set plage = .Range("D2:D" & derlg)
   For Each cel In plage
      laDate = DateSerial(Year(cel), Month(cel) - 3, Day(cel))
      If laDate <= Date Then
         If admail = "" Then
            admail = cel.Offset(0, 3).Value
            nom = cel.Offset(0, -2).Value
         Else
            admail = admail & ";" & cel.Offset(0, 3).Value
            nom = nom & Chr(13) & cel.Offset(0, -2).Value
         End If
      End If
   Next cel
   If admail <> "" Then
      mess = MsgBox("les personnes suivantes : " & Chr(13) & Chr(13) & nom & Chr(13) & Chr(13) & " ne sont pas à jour " & Chr(13) & Chr(13) _
         & "Voulez-vous envoyer la relance?", vbOKCancel)
      If mess = 1 Then
         admail = InputBox("destinataire", , admail)
         'For j = 1 To 2
         On Error Resume Next
         Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE""" 'ou
         'Shell """C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE""" 'a vérifier
         Set ol = New Outlook.Application
         Set olmail = ol.CreateItem(olMailItem)
         messmail = "Hello," & Chr(10) & Chr(10) & "For your information, loan no. 41193855 EGES - Valencia, will end on 20/04/2011." _
            & Chr(10) & Chr(10) & "Thanks a lot for your prompt action." & Chr(10) & Chr(10) & "Kind regards," _
            & Chr(10) & Chr(10) & Chr(10) & "Marie"
         'If Err Then
         'secours = MsgBox("Problème avec le serveur de messagerie, Envoyer en direct ?", vbOKCancel)
         'If secours = 1 Then
         'Call mail_direct: Exit Sub
         'Else
         'Exit Sub
         'End If
         'Else
         With olmail
            .To = admail
            .Subject = "Info. Return loan order" 'Sujet
            .Body = messmail 'Corps du mail
            .Send '.Display     '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
         On Error GoTo 0
         'End If
         'Next j
      End If
   Else
   End If
End With
End Sub

attention à cette ligne, à vérifier

Code :

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

Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"""

il faut regarder ou est "OUTLOOK.EXE"

possible ici

Code :

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

Shell """C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"""

bonne nuit