Envoie d'email, problème avec le CC

**draco951** · 02/04/2012, 10h46

Bonjour,

J'envoie un email de la manière suivante :

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
      Mess est un Email
	Mess.Cc[1] = "pop3@societe.be"
	Mess..Sujet  = "sujet"
	Mess..Message  =  "corps"
	Mess..Expediteur = "expediteur@societe.be"
	Ajoute(Mess..Destinataire,"destinataire1@societe.be")
	Ajoute(Mess..Destinataire,"destinataire2@societe.be")
	Ajoute(Mess..Destinataire,"destinataire3@societe.be")
	Ajoute(Mess..Destinataire,"destinataire4@societe.be")
 
	MaSession est un entier
	MaSession = EmailOuvreSession("") 
	SI MaSession <> 0 ALORS 
		SI EmailEnvoieMessage(MaSession,Mess,Vrai)  = Vrai ALORS
			Update_Journal("Envoie d'un email",clDossier:m_sIDDossierPlainte,"")
		FIN
		EmailFermeSession(MaSession) 
	FIN

Donc, ca envoie un email à 4 destinataire et ca comprend un CC, lle CC est bien renseigné dans le code, et même en mode débuggage juste avant de créer l'email dans outlook, la preuve en image:

Quand outlook s'ouvre pour m'afficher mon email, voilà ce qui se passe :

Auriez-vous une idée du pourquoi ?

**frenchsting** · 02/04/2012, 10h49

Les images ne s'affichent pas chez moi.

**draco951** · 02/04/2012, 11h06

Bonjour Frenchsting

Arg encore.

Bizarre pourtant, ca devrait fonctionner.

Je vais essayer autrement

**draco951** · 02/04/2012, 11h09

première image :

deuxième image :

**frenchsting** · 02/04/2012, 11h21

Là ça fonctionne

Vive l'espace schengen

Je ne vois pas pourquoi ça te sort ça. Peut-être dois tu utiliser un truc du style :

Code :

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

1
2
3
Ajoute(Mess..cc,"pop3@societe.be")
ou
Mess..cc,"pop3@societe.be"

ou simplement l'ordre :

Code :

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

1
2
3
4
5
6
7
8
9
Mess..Sujet  = "sujet"
Mess..Message  =  "corps"
Mess..Expediteur = "expediteur@societe.be"
Ajoute(Mess..Destinataire,"destinataire1@societe.be")
Ajoute(Mess..Destinataire,"destinataire2@societe.be")
Ajoute(Mess..Destinataire,"destinataire3@societe.be")
Ajoute(Mess..Destinataire,"destinataire4@societe.be")
Mess.Cc[1] = "pop3@societe.be" // ou en utilisant l'autre syntaxe : Ajoute(Mess..cc,"pop3@societe.be")

Je n'ai pas testé : je n'utilise pas et je n'ai pas wd17

**draco951** · 02/04/2012, 11h41

A la bonne heure !

Etrange, en effet :-)

Code :

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

Ajoute(Mess.Cc,"pop3@societe.be")

Me fait pareil

Code :

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

Mess..cc,"pop3@societe.be"

Ne fonctionne pas, ce ne serait pas du VB6 ca par hasard ? ^^

Une autre idée ? :-)

**wimbish** · 02/04/2012, 11h55

Bonjour,
Une idée stupide mais qui pourrait fonctionner (comme souvent avec Windev).
essaye de compléter ton adresse par des " " à la taille de l'adresse affichée dans Outlook.

**gancau** · 02/04/2012, 12h08

Bonjour
As-tu fait un raz de tes valeurs avant avec

Code :

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

emailraz()

?
Il te reste peut être un truc à l'intérieur...

Bon dev
Gancau

**draco951** · 02/04/2012, 13h15

Envoyé par wimbish

Bonjour,
Une idée stupide mais qui pourrait fonctionner (comme souvent avec Windev).
essaye de compléter ton adresse par des " " à la taille de l'adresse affichée dans Outlook.

Je ne suis pas sûr de comprendre. Suite à ton idée, si j'ai bien compris , j'ai essayer d'ajouter des caractères vide après : pop3@societe.be

Ca donne :

Code :

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

pop3@societe.be

si j'en met un peu moins, ca donne :

Code :

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

pop3@societe.be       .be

Code :

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

1
2
3
4
5
6
7
8
9
Bonjour
As-tu fait un raz de tes valeurs avant avec
Code :Sélectionner tout - Visualiser dans une fenêtre à part
emailraz()
?
Il te reste peut être un truc à l'intérieur...
 
Bon dev
Gancau

Ben étant donné que c'est un objet que je crée, il devrais techniquement être vide. Je n'utilise pas la structure email dans ce cas ci.
MAIS, j'ai tout de même essayé et rien n'y change.

Merci à vous de m'aidez :-)
Auriez-vous une autre idée peut-être ?

**wimbish** · 02/04/2012, 14h10

Bonjour,
Dans un cas comme ça on peut essayer d'avancer à tatons.
A priori, le CC fait un complète en partant de la fin si la variable n'a pas la taille souhaité.

A priori, les adresses destinataires sont bien interprétées, peut tu essayer de remplacer ton adresse pop3@societe.be par une destinataire1@societe.be afin de déterminer si c'est l'adresse qui pose problème ou si c'est le champ CC?

**draco951** · 02/04/2012, 14h21

En variant mes adresses et le CC,

Je me rend compte que les 2 posent problème ....

Je me retrouve aussi avec des destinataire dont leur email est complètement différent de ce que je donne, par exemple, j'aurait :

"destinataire4@societe.be" ==> "destinataire4@societe.be.be"

Pourtant en mode débug, tout est correct.

**miripesage** · 02/04/2012, 14h26

Bonjour, et si tu passe en ANSI ?

**draco951** · 02/04/2012, 14h32

Envoyé par miripesage

Bonjour, et si tu passe en ANSI ?

Bonjour,

Tu veux dire quelque chose comme ca ?

Code :

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

Mess.Cc[1] = AnsiVersUnicode("pop3@deom.be")

ou

Code :

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

1
2
	test est une chaîne UNICODE = "pop3@deom.be"
	Mess.Cc[1] = UnicodeVersAnsi(test,alphabetUTF8)

Je viens d'essayer les 2, j'ai le même problème.

**gancau** · 02/04/2012, 14h37

Re bonjour
juste comme ça...
As-tu une aussi la version 16 ?
si c'est le cas, peux tu tester ce code rapidement en WD16, et voir le résultat ?

Gancau

**wimbish** · 02/04/2012, 14h50

Envoyé par gancau

Re bonjour
juste comme ça...
As-tu une aussi la version 16 ?
si c'est le cas, peux tu tester ce code rapidement en WD16, et voir le résultat ?

Gancau

D'accord avec gancau, c'est peut être un bug 17.

**draco951** · 02/04/2012, 14h50

J'ai bien le WD16

Je viens donc de tester et ...
J'ai absolument rien qui s'affiche.
Peut être j'ai mal fait quelque chose, je regarde.
Je précise qu'ici, je l'ai fais avec un objet de type email, pas la structure email de windev.

Vous avez essayer le code que j'ai mis ?
Parce qu'en version 16. Rien ne se remplis

**draco951** · 02/04/2012, 15h00

Donc, je viens d'essayer avec la structure Email de windev sur WD16 :

Code :

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

1
2
3
4
5
6
7
8
	Email.Cc = "pop3@deom.be"
	Email.NbCc = 1
	Email.Expéditeur = "expediteur@societe.be"
	Email.Destinataire[1] = "destinataire1@societe.be"
	Email.Destinataire[2] = "destinataire2@societe.be"
	Email.Destinataire[3] = "destinataire3@societe.be"
	Email.Destinataire[4] = "destinataire4@societe.be"
	Email.NbDestinataire = 4

Ca marche impéccablement.

je test sur WD17, voilà ce que ca donne :

**draco951** · 02/04/2012, 16h03

ceci, c'est avec un objet de type Email

**DavFau** · 26/04/2012, 13h53

Bonjour,

je rencontre le meme pb avez vous eu des info pour resoudre votre souci

merci

david

**frenchsting** · 27/04/2012, 09h52

La question a été soulevée mail.spam. Aurais-tu une idée supplémentaire à soumettre (une syntaxe qu'on aurait zappée notamment) ?

Je me suis posé la question : si on affecte le cc avant les destinataires, est-ce que ça marche mieux ?

Envoie d'email, problème avec le CC [WD17]

WinDev

Discussions similaires

Partager

Partager