5 messages in org.openoffice.fr.prog[prog] Re: Re:[prog]Problème_envoi_mail
FromSent OnAttachments
Arnaud LAURENSON - Costes GestionAug 30, 2005 8:14 am 
Laurent GodardAug 30, 2005 8:29 am 
Arnaud LAURENSON - Costes GestionAug 30, 2005 8:48 am 
Bernard MarcellyAug 31, 2005 2:03 am 
Arnaud LAURENSON - Costes GestionAug 31, 2005 2:56 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:[prog] Re: Re:[prog]Problème_envoi_mailActions...
From:Arnaud LAURENSON - Costes Gestion (arna@costes-gestion.net)
Date:Aug 30, 2005 8:14:21 am
List:org.openoffice.fr.prog

Bonjour, Merci de votre aide. J'ai appliqué le code à mon pb :

dim prop(2) as new com.sun.star.beans.PropertyValue dim dispatcher as object dim document as object

dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

document = StarDeskTop.CurrentFrame prop(1).Name = "Recipient" prop(1).Value = adr prop(2).Name = "Subject" prop(2).Value = obj dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, prop())

Une erreur apparaît sur la dernière ligne, la même qui apparaît qd j'essaie
d'envoyer un document texte depuis OpenOffice en passant par les menus.

Msg erreur : "OPenOffice n'a pas pu trouver de configuration de messagerie
valide.Enregistrez ce doument dans un répertoire local et envoyez-le en pièce
jointe depuis le client de messagerie."

Lorsque je lance mon code en pas à pas, j'ai un autre msg d'erreur : "erreur lors de l'envoi du message. Erreurs possibles : compte d'utilisateur
manquant ou Setup erroné. Vérifiez les paramètres de OpenOffice.org ou ceux du
logiciel de messagerie."

Merci d'avance pour votre précieux soutien !

Bonjour,

La fonction d'envoi de mail ne fonctionne pas toujours, cela dépend du mailer. Une solution possible est d'utiliser la fonction d'envoi de mail accessible à l'utilisateur d'OpenOffice par Fichier>Envoyer>Document par e-mail, à l'aide du dispatcher :

dim prop(2) as new com.sun.star.beans.PropertyValue prop(1).Name = "Recipient" prop(1).Value = sDestinataire prop(2).Name = "Subject" prop(2).Value = sSujet dispatcher.executeDispatch(document, ".uno:SendMail", "", 0, prop())

PS : J'avais reconnu FoxMail, c'est le seul qui coupe les fils de dicussion :-(

Arnaud LAURENSON - Costes Gestion a écrit :

Bonjour,

Effectivement, j'ai oublié de retirer mon accusé de réception et j'en suis
désolé. Pour le code, voici :

Function EnvoiMail(adr as string, obj as string, fich as string) Dim sv as object, UnClient as object, monMel as Object

sv = createUnoService("com.sun.star.system.SimpleSystemMail") UnClient = sv.querySimpleMailClient() if IsNull(UnClient) then MsgBox("Client de messagerie non disponible",16) stop end if monMel = UnClient.createSimpleMailMessage() With monMel .Recipient = adr .Subject = obj .Attachement = fich end with UnCLient.sendSimpleMailMessage(monMel,0) End Function

J'appelle cette fonction depuis une procédure avec les paramètres qui vont bien.
A part la ligne ".Attachement = fich" qui plante (je ne sais pas pourquoi mais
pour le moment, je la mets en commentaire), tout fonctionne jusqu'à la dernière
ligne.

Peut-être dois-je vous dire que j'utilis également FoxMail comme logiciel de
messagerie ?

Merci d'avance.

J'essaye d'envoyer un document par courrier électronique en appliquant à la
lettre le code situé dans le livre p.602 J'ai une erreur sur le sendSimpleMailMessage() : Send email Failed

Quelqu'un a une idée ?

Merci d'avance.

Arnaud LAURENSON

-- Alain Nowak - StarXpert http://www.starxpert.fr

--------------------------------------------------------------------- To unsubscribe, e-mail: prog@fr.openoffice.org For additional commands, e-mail: prog@fr.openoffice.org

= = = = = = = = = ========= = = = = = = = = = =

Arnaud LAURENSON - Costes Gestion arna@costes-gestion.net 30/08/2005