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.
Bonjour,
Je ne peux pas vous aider mail il serait plus simple que vous
fournissiez le code concerné en entier (du Sub au End Sub).
D'autre part, pourriez-vous désactiver l'accusé de réception de votre mail.
Ce ne sont pas des reproches, vous aurez simplement votre réponse plus
rapidement.
Cordialement.
Arnaud LAURENSON - Costes Gestion a écrit :
Bonjour,
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: Re: [prog]Problème_envoi_mail
