MACRO pour alerte mail

**joffreytex** · 24/09/2018, 14h18

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
Option Explicit
 
Sub TesteDate()
'envoie un mail si la date est proche
Dim sSujet, sBody, sAdresseMail, sAdresseRetour As String 'chaines pour le sujet, corps, adresse d'envoi, adresse de retour
Dim duree As Integer 'nbre de jours entre aujourd'hui et la date à tester
Dim Lig_Deb, Lig_Fin As Integer 'ligne de début, de fin
Dim sDates_Col As String 'colonnes qui contiennent les dates à tester et les adresses mail
Dim i As Integer
 
'initialisation des constantes de la macro :
Lig_Deb = 5 'dans ma feuille Excel, les dates à tester commencent en ligne 2
sDates_Col = "E" ' et elles sont en colonne C ( 3 ième colonne)et les adresses mail sont en colonne D à côté
 
'initialisation des données du mail envoyé :
sSujet = "EP 2019 rappel"
sBody = "Il reste peu de temps merci de faire passer l'EP rapidement."
sAdresseRetour = "adresse_valide@free.fr"
 
'Ligne de fin =1ère cellule vide dans la colonne des dates
Lig_Fin = Val(Range(sDates_Col & CStr(Lig_Deb)).End(xlDown).Row)
 
' boucle de test dans la plage des dates (=> )
For i = Lig_Deb To Lig_Fin
Range(sDates_Col & CStr(i)).Select 'activer la cellule testée
duree = Now - ActiveCell.Value ' la date est dans la cellule active
If duree <= 30 Then 'la date est proche
sAdresseMail = "adresse@adresse.fr"
'MsgBox ("Envoi de courrier à " & sAdresseMail)
' envoyer le mail :
CDO_SendMail sSujet, sBody, sAdresseMail, sAdresseRetour
 
End If
 
Next i
 
End Sub
 
Sub CDO_SendMail(ByVal sSujet As String, ByVal sBody As String, ByVal sAdresseMail As String, ByVal sAdresseRetour)
'MARCHE IMPEC, sans demande de confirmation ;-)))))
'on peut préciser : le sujet, le corps , l'adresse mail, l'adresse de retour
Dim iMsg As Object
Dim iConf As Object
 
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
 
With iMsg
.Configuration = iConf
.To = sAdresseMail
.Sender = sAdresseRetour 'adresse de l'expéditeur pour le rapport envoyé
.From = sAdresseRetour 'adresse de l'expéditeur du mail
.ReplyTo = sAdresseRetour 'adresse à laquelle sera envoyée la réponse
.CC = ""
.BCC = ""
.Subject = sSujet 'sujet du message
.TextBody = sBody 'corps du message
'.AddAttachment Fichier 'fichier joint
.DSNOptions 14 'confirmation demandée dans tous les cas (voir ci-dessous avec 14 8 + 4 + 2)
' (0=pas réponse ; 2=rapport si échec ; 4=rapport si réussi ; 8=rapport si délai)
 
' pour demander des confirmations de réception ou d'envoi :
.Fields("urn:schemas:mailheader:return-receipt-to") = sAdresseRetour
.Fields("urn:schemas:mailheader:disposition-notification-to") = sAdresseRetour
' Update fields
.Fields.Update
 
' envoi
.Send
End With
 
End Sub

voila j'ai fass ça et j'ai une erreur 438 j'ai cherccher je ne trouve pas de solution merci de me filer un coup de main svp

**Menhir** · 24/09/2018, 14h25

Envoyé par joffreytex

voila h'au faus ca

Je ne sais pas en quelle langue tu écris mais ceci est incompréhensible pour moi.

j'ai une erreure 438 j'ai chercehr je ne trouve pas merci de me filer un coup de main svp

Quel est le message d'erreur ?
Quelle ligne de code est désignée par le débuggage ?

**joffreytex** · 24/09/2018, 14h27

j'ai corriger mes fautes excusez moi ^^ et bien de debug ne me montrer rien justement et cela me marque :

erreur d’exécution 438 , propriété ou méthode non gérée par cet objet

**Menhir** · 24/09/2018, 15h09

Envoyé par joffreytex

j'ai corriger mes fautes excusez moi ^^ et bien de debug ne me montrer rien justement et cela me marque :
erreur d’exécution 438 , propriété ou méthode non gérée par cet objet

Quand cette erreur apparait, il doit être dans une fenêtre avec deux boutons, n'est-ce pas ?
Sur l'un des deux bouton est écris "Débugage", clique dessus.
L'éditeur surligne une ligne de code en jaune. Quelle est cette ligne ?

**joffreytex** · 24/09/2018, 15h21

non , il ne s'affiche que ok ou aide si je sauais localiser et sans doute regler le probleme, mais la je ne comprend pas c'est pour cela que je demande de l'aide