Discussion :

[liop49]

Bonjour,

J'avais une macro qui permettait d'envoyer depuis excel un email sous Outlook Express. L'email se faisait en automatique avec le destinataire, l'objet, le corps du message et une pièce jointe.

Le problème vient d'Outlook Express qui n'existe plus. J'ai donc bidouillé mon code pour mettre Outlook au lieu d'Outlook Express mais ....

Voici le code:

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
Sub EnvoiMail()
  Dim nomfich As String
  Dim nomfich2 As String
  Dim Corps As String
  Dim ol As New Outlook.Application, olmail As MailItem, SendEmail
 
 
Dim Msg, Style, Title, Response, MyString
 
 
'Cde_a_emailer = InputBox("Entrez le n° de commande pour lequelle vous voulez envoyer un email", "N° de commande")
'Range("L1").Value = Cde_a_emailer
Cde = InputBox("Entrez le n° de commande pour lequelle vous voulez envoyer un email", "N° de commande")
Range("K1").Value = Cde
'Cde = Range("K1").Value
 
If Cde = "" Then Exit Sub
 
Range("K2").Select
Client = ActiveCell.Value
 
Range("K3").Select
Email = ActiveCell.Value
 
Range("K4").Select
Date_expe = ActiveCell.Value
Range("K5").Select
Date_expe2 = ActiveCell.Value
Range("K6").Select
Date_Cde = ActiveCell.Value
Range("K7").Select
Date_Cde2 = ActiveCell.Value
 
ActiveSheet.Range("A1").Select
 
 
    Msg = "Confirmez vous l'envoi d'un email pour la commande" & vbCrLf & Cde & " du client " & Client
    Style = vbYesNo + vbQuestion
    Title = "Confirmation envoi email"
 
    Response = MsgBox(Msg, Style, Title) ' Affiche le message.
 
 
        If Response = vbYes Then    ' L'utilisateur a choisi Oui.
            myrep = "\\Serveur-caill\Documents\temporaire\Nicolas\Envoi_BA_par_email\Cde_clé_USB\" & Date_expe
            nomfich = myrep & "\" & Cde & ".txt"
            nomfich2 = Dir(myrep & "\*" & Cde & "*.txt")
 
            If nomfich2 <> "" Then
 
            Adresse = Email
            Sujet = "BULLETINS D'ANALYSE COMMANDE " & Cde
            Texte = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint la liste des produits expédiés le " & Date_expe2 & " et pour laquelle vous pourrez télécharger les bulletins d'analyse sur notre site." & vbCrLf & "Bonne réception." & vbCrLf & "Bien cordialement." & vbCrLf & vbCrLf & "Le Service Commercial / Herboristerie Cailleau" & vbCrLf & "http://bulletin.herbo-cailleau.com"
 
 '           Shell "C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe " & "/mailurl:mailto:" & _
 '           Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
 '           SendKeys "%I" & "p" & nomfich & "~"
                    'Signification des caractères après "SendKeys":
                    '* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
                    '* ~ = Validation. (~=Entrée)
                    '* %S = Envoyer.
 
               Shell """C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe"""
                Set ol = New Outlook.Application
                Set olmail = ol.CreateItem(olMailItem)
                'admail = .Range("A" & i) 'admettons tes mails en col A
 
 
                With olmail
                    .To = Email
                    .Subject = "BULLETINS D'ANALYSE COMMANDE " & Cde 'Sujet
                    .Body = Texte 'Corps du mail
                    .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)
 
 
 
            Else
            Msg = "Il n'y a pas de commande n° " & Cde & " expédiée à la date du" & vbCrLf & Date_expe2
            Style = vbOK
            Title = "Confirmation envoi email"
 
            Response = MsgBox(Msg, Style, Title) ' Affiche le message.
 
                If Response = vbOK Then
                    Date_Cde = InputBox("Entrez la Date d'expédition de la commande" & vbCrLf & Cde & vbCrLf & vbCrLf & "        sous le format :   aaaammjj", "Date d'expédition de la commande")
                    Range("K6").Value = Date_Cde
 
                    myrep = "\\Serveur-caill\Documents\temporaire\Nicolas\Envoi_BA_par_email\Cde_clé_USB\" & Date_Cde
                    nomfich = myrep & "\" & Cde & ".txt"
                    nomfich2 = Dir(myrep & "\*" & Cde & "*.txt")
 
                    If nomfich2 <> "" Then
 
                        Adresse = Email
                        Sujet = "BULLETINS D'ANALYSE COMMANDE " & Cde
                        Texte = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver ci-joint la liste des produits expédiés le " & Date_Cde2 & " et pour laquelle vous pourrez télécharger les bulletins d'analyse sur notre site." & vbCrLf & "Bonne réception." & vbCrLf & "Bien cordialement." & vbCrLf & vbCrLf & "Le Service Commercial / Herboristerie Cailleau"
 
                      '  Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
                      '  Adresse & "?subject=" & Sujet & "&Body=" & Texte & ""
                      '  SendKeys "%I" & "p" & nomfich & "~"
                            'Signification des caractères après "SendKeys":
                            '* %I et P = Insertion de la pièce jointe dans Outlook Express. (%=Alt)
                                                        '* ~ = Validation. (~=Entrée)
                            '* %S = Envoyer.
 
                        Shell """C:\Program Files (x86)\Microsoft Office\Office14\outlook.exe"""
                            Set ol = New Outlook.Application
                            Set olmail = ol.CreateItem(olMailItem)
                            'admail = .Range("A" & i) 'admettons tes mails en col A
 
 
                        With olmail
                            .To = Email
                            .Subject = "BULLETINS D'ANALYSE COMMANDE " & Cde 'Sujet
                            .Body = Texte 'Corps du mail
                            .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)
 
 
 
                    Else
                    Msg = "Il n'y a pas de commande n° " & Cde & " expédiée à la date du" & vbCrLf & Date_Cde2
                    Style = vbOK
                    Title = "Confirmation envoi email"
                    Response = MsgBox(Msg, Style, Title) ' Affiche le message.
 
                    End If
                End If
            End If
        End If
 
        ActiveSheet.Range("A1").Select
 
End Sub

Le code plante sur le 1er else :

Code :

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

1
2
3
4
5
 
Else
Msg = "Il n'y a pas de commande n° " & Cde & " expédiée à la date du" & vbCrLf & Date_expe2
Style = vbOK
Title = "Confirmation envoi email"

Il me dit Erreur de compilation en surlignant le Else : "Else sans If"

Est ce que quelqu'un peut m'aider ?

Merci par avance

Nicolas

[Gado2600]

Bonjour,
Il te manque un "end with" et quelques "end if".
A savoir que lorsque tu ouvres une condition (if, while, for...) ou un with, il faut toujours mettre le "end" à la fin de ton bloc sur la condition

Exemple :

Code :

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

1
2
3
4
5
if 1 < 2 then
     msgbox "1 est inférieur à 2"
else
     msgbox "1 n'est pas inférieur à 2. Le code est faux dans ce cas."
end if

Ton problème vient de là

Cordialement,

[liop49]

Merci !
Ils auraient pu préciser dans le débeugage que c'était avec un with et non sur le Else.
J'avais effectivement oublié de fermé les With

Merci encore

[Gado2600]

Bonjour,
Il n'y a pas que le with sur lequel tu ne fermais pas tes boucles de conditions

En ce qui concerne cette erreur, c'est vrai qu'il pourrait y avoir précision dessus mais ce n'est pas le cas parce que c'est un peu compliqué de trouver quelle boucle n'est pas fermée dans un programme unique à chaque développeur.

Cordialement,