PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV (versiones precedentes) → Problème d'envoi d'e-mail via MAPI GroupWise Novell
Problème d'envoi d'e-mail via MAPI GroupWise Novell
Iniciado por slespagnard, 12,ene. 2004 18:02 - No hay respuesta
Publicado el 12,enero 2004 - 18:02
Bonjour,

J'ai un problème pour envoyer des e-mails via MAPI avec WinDev 7.5. Le serveur
de mails est GroupWise 6 sous système Novell version 5. L'application génère
systématiquement une erreur après la fermeture du programme :

*********************

Une erreur système inattendue est survenue.
Si cet incident se produit de manière systématique lorsque vous exécutez
les mêmes manipulations, il est conseillé de transmettre au Support Technique
Gratuit :
- une description des circonstances de l'incident
- les lignes de code, une fenêtre ou un projet permettant de reproduire
le problème
- les informations techniques suivantes

Détails techniques :

Module : WDTST.EXE
Version du module : 7.50Aqc
VI : 01-75206g
Adresse de base : 00000000
Erreur système : Access violation (GPF)
EIP = 7649F877
OS : Windows 2000 Service Pack 4(5.0.2195)

- Infos de debug :
Registres :

EIP = 7649F877 EBP = 0012F438
EAX = C0000000 EBX = 003D1518
ECX = 001D0622 EDX = 40000000
ESI = 004DA7D0 EDI = 00000010

Pile des appels :

[WDTST.EXE (00000000), 7.50Aqc, 01-75206g ] 7649F877
[USER32.DLL (77E00000)] 77E04605 : SetWindowTextW() + 351 bytes
[USER32.DLL (77E00000)] 77E04605 : SetWindowTextW() + 283 bytes
[ntdll.dll (78460000)] 784815DC : KiUserCallbackDispatcher() + 19 bytes
[USER32.DLL (77E00000)] 77E06D41 : DefWindowProcA() + 34 bytes


- Pas d'info attachée

- Identifiant dans le .err : 1020

*******************

Ce phénomène ne se produit qu'avec un profil GroupWise. Si l'application
est exécutée sur un poste avec Outlook ou Outlook Express comme client, tout
fonctionne parfaitement.
Le message d'erreur semble se produire après l'instruction FinProgramme()
Le phénomène ne se produit pas si l'application est exécutée en mode pas
à pas (alt+F9).

Voici la partie du code qui envoit le mail :

num_session est un entier + EmailOuvreSession("")
SI num_session = 0 ALORS
Erreur("Impossible d'établir la connexion", ErreurInfo(errRésumé))
RETOUR
FIN

// Constitution du mail
Email.Expéditeur = ParamMail.expéditeur
Email.AdresseExpéditeur = ParamMail.adresse_expéditeur
Email.Sujet = f_sujet
Email.Message = f_message
Email.Destinataire[1] = f_adr_dest
Email.NbDestinataire = 1
SI ParamMail.adresse_copie_expédition <> "" ALORS
Email.Destinataire[2] = ParamMail.adresse_copie_expédition
Email.NbDestinataire ++
FIN
Email.NbAttache = 0

// Envoie le mail
SI PAS EmailEnvoieMessage(num_session) ALORS
Erreur("eMailEnvoieMessage a échoué '" + ErreurInfo(errMessage) + "'")
SINON
Info("eMailEnvoieMessage a réussi"+RC+num_session)
FIN

// Fermeture de la session
EmailFermeSession(num_session)


Quelqu'un a-t-il déjà rencontré ce problème ?
Merci.

Serge.