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: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
>
= = = = = = = = = ========= = = = = = = = = = =
Arnaud LAURENSON - Costes Gestion
[EMAIL PROTECTED]
30/08/2005
