Bonjour
La semaine dernière, mon application 4D 2003 enoyait des mails en utilisant la commande SMTP_Send.
Depuis aujourd'hui plus aucun mail n'est envoyé, l'erreur -11001 apparait.
Mon fournisseur d'accès est wanadoo (Orange maintenant).
Voici le code utilisé :
Bien entendu les petites étoiles "*" remplacent le vrai mot de passe que je ne divulguerai pas sur le forum.
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 $Car:=Caractere(13) eMailFrom:="Sage_Revendeur@bgsconseil.fr" eMailTo:="pcasabonne@bgsconseil.fr" eMailObj:=Mac vers ISO("Test PJ") eMailMsg:="Test pièce jointe"+$Car **`Si ((tablo>0)*&*(eMailListePJ{1}#"")) C_ENTIER($erreur;$i;$TypeEncodage) $i:=1 **`$TypeEncodage:=2**`Encodage des PJ en Base64 C_ENTIER LONG($smtp_id) $erreur:=SMTP_New ($smtp_id) Si ($erreur=0) $erreur:=SMTP_Host ($smtp_id;"smtp.wanadoo.fr") Fin de si Si ($erreur=0) $erreur:=SMTP_From ($smtp_id;eMailFrom) Fin de si Si ($erreur=0) $erreur:=SMTP_ReplyTo ($smtp_id;"pcasabonne@bgsconseil.fr") Fin de si Si ($erreur=0) $erreur:=SMTP_Subject ($smtp_id;eMailObj) Fin de si Si ($erreur=0) $erreur:=SMTP_To ($smtp_id;eMailTo;1) Fin de si Si ($erreur=0) $erreur:=SMTP_Body ($smtp_id;Mac vers ISO(eMailMsg)) Si ($erreur=0) nomfich1:="C:\\203253.pdf" nomfich2:="C:\\Doc2.pdf" **`nomfich:="\\\\serveur\\Atlas\\Opérations\\1_Prod 2006\\SAGE\\06_02_02_SAGE IMPACT PME\\203253.pdf" Si (Tester chemin acces(nomfich1)=Est un document ) **`$erreur:=SMTP_Attachment ($smtp_id;nomfich1;1;1) Fin de si Si (Tester chemin acces(nomfich2)=Est un document ) **`$erreur:=SMTP_Attachment ($smtp_id;nomfich2;1;0) Fin de si Fin de si Fin de si Si ($erreur=0) $erreur:=SMTP_Auth ($smtp_id;"contact-bgs";"*****") $erreur:=SMTP_Send ($smtp_id) Fin de si Si ($erreur#0) ALERTE("Erreur N°"+Chaine($erreur)) Fin de si $0:=$erreur $erreur:=SMTP_Clear ($smtp_id)
J'ai aussi essayé avec le serveur smtp de yahoo, pareil.
Avez-vous une idée ?
Pouvez vous me donner un code d'envoi d'email que fonctionne ?
Merci
Scorpia
Partager