Aide sur Macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/04/2011, 17h32
3688marie

Aide sur Macro

Bonjour,
J'ai fait ce que tu m'as indiquer, mais je reçois un message dont le contenu est vierge.
Les mails arrivent aux bonnes adresses,
l'objet est bon,
seulement le texte est vide!
j'ai très certainement mal programmé mais je ne sais pas où.
Merci pour ton aide et bon dimanche
Marie

Bonjour Marie,le forum,
C'est normal que tu ne reçoives rien :
Une erreur dans "messmail", corriges

Code:

1
2
3
4
messMail = "Hello," & Chr(10) & Chr(10) & "For your information, loan no. " & cel.Offset(0, -1).Value _
            & cel.Offset(0, -2) & "will end on" & cel.Offset(0, 1).Value _
            & Chr(10) & Chr(10) & "Thanks a lot for your prompt action." & Chr(10) & Chr(10) & "Kind regards," _
            & Chr(10) & Chr(10) & Chr(10) & "Marie"

dans la mesure où tu envoies le mail à toutes les personnes en même temps le corps du message ne peut pas être correct, avec le code actuel, il faut envoyer les mails un par un, code complet pour envoyer un par un :

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
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
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
      If cel.Offset(0, 2) = "Vrai" 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
      If admail <> "" Then
         mess = MsgBox("les personnes suivantes : " & Chr(13) & nom & Chr(13) & " ne sont pas à jour" & Chr(13) _
         & "Voulez-vous envoyer la relance?", vbOKCancel)
         If mess = 1 Then
            admail = InputBox("destinataire", , admail)
            'For j = 1 To 2
            messMail = "Hello," & Chr(10) & Chr(10) & "For your information, loan no. " & cel.Offset(0, -1).Value _
               & cel.Offset(0, -2) & "will end on" & cel.Offset(0, 1).Value _
               & Chr(10) & Chr(10) & "Thanks a lot for your prompt action." & Chr(10) & Chr(10) & "Kind regards," _
               & Chr(10) & Chr(10) & Chr(10) & "Marie"
            On Error Resume Next
            Shell """C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"""
 
            Set ol = New Outlook.Application
            Set olmail = ol.CreateItem(olMailItem)
            '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
   Next cel
End With
End Sub

Je pense que cette solution ne va pas te satisfaire, je réfléchis encore

17/04/2011, 21h16
3688marie

Aide sur Macro

Bonsoir Dom,
Merci pour ton aide car j'ai un mail complet...
J'ai d'autres petits inconvénients, mais je crois que sincèrement nous allons finir par avoir quelque chose de très correct.
Juste pour exemple (car je ne souhaite pas que tu fasses mon boulot) :
- tout le monde reçoit le rappel,
- un mail pour un "Centre" part et je dois relancer pour le 2eme, etc etc...
Ne te prends pas la tête pour le moment, je regarde tranquillement toutes les infos que tu m'as données depuis le début et tente par moi même de corriger.
Je te tiens au courant de mes modifications et reviendrai certainement vers toi pour un autre conseil.
Bonne soirée,
Marie

Bonjour Dom et le Forum,
J'ai un pris un peu de retard.
J'ai modifié cette partie afin d'avoir un corps de texte parfait dans le mail envoyé et cela fonctionne:

Code:

1
2
3
messmail = "Hello," & Chr(10) & Chr(10) & "For your information, loan no. " & cel.Offset(0, -1).Value & Chr(9) & cel.Offset(0, -2).Value & ", will end on " & cel.Offset(0, 1).Value _
            & "." & Chr(10) & Chr(10) & "Thanks a lot for your prompt action." & Chr(10) & Chr(10) & "Kind regards," _
            & Chr(10) & Chr(10) & Chr(10) & "Marie"

Par contre je reçois le mail deux fois et n'arrive pas à savoir pourquoi.
Merci beaucoup pour ton aide Dom,
Cordialement,

Re Dom,
Si j'oublie la moitié du message, personne ne peut comprendre.
Je suis désolée.
Donc je reçois deux fois le mail et ne sais pas pourquoi.
Sinon le corps du texte est parfait.

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
43
44
45
Private Sub Workbook_Open()
Dim ol As New Outlook.Application
Dim olmail As MailItem, plage As Range
Dim admail As String, cel As Range, j As Long, derlg As Long
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
        If cel.Offset(0, 2) = "Vrai" Then
            mess = MsgBox("la " & .Range("E1").Value & " est au : " & cel.Offset(0, 1).Value & Chr(10) & Chr(10) _
                & "Voulez-vous envoyer la relance?", vbOKCancel)
            If mess = 1 Then
                admail = InputBox("destinataire", , cel.Offset(0, 3).Value)
                For j = 1 To 2
                    On Error Resume Next
                    Shell """C:\Program Files\Microsoft Office\Office12\OUTLOOK.EXE"""
                    Set ol = New Outlook.Application
                    Set olmail = ol.CreateItem(olMailItem)
messmail = "Hello," & Chr(10) & Chr(10) & "For your information, loan no. " & cel.Offset(0, -1).Value & Chr(9) & cel.Offset(0, -2).Value & ", will end on " & cel.Offset(0, 1).Value _
            & "." & 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
                        End With
                        On Error GoTo 0
                    'End If
                Next j
            End If
        Else
        End If
    Next cel
End With
End Sub

Merci pour ton aide et bonne journée

23/05/2011, 10h42
3688marie

Aide sur Macro

Bonjour Dom, Bonjour le forum,
J'ai tout repris, mais je n'arrive pas à comprendre pourquoi je reçois le mail deux fois!
Pourriez vous m'aider s'il vous plait.
Merci à tous.
21/06/2011, 12h29
3688marie

Aide sur Macro

Bonjour à Tous,
Merci aux deux personnes qui m'ont aidée à effectuer ce travail très complexe pour moi.
En fait, pour que le mail ne parte pas deux fois, il faut supprimer :

Code:

For j = 1 To 2

Bonne journée à tous et à bientôt pour d'autres discutions...

Voir 40 message(s) de cette discussion en une page