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.
2 messages in org.openoffice.fr.progRe: [prog]Problème_envoi_mail
