Bonjour,
Jovial a écrit :
J'utilise le code suivant pour envoyer des Email avec Mozilla 1.7.3
sous W98
La macro m'ouvre bien la rédaction de mel Mozilla, mais m'inscrit
l'adresse: SMTP:o.jo...@free.fr
Cette adresse n'est pas acceptée et le serveur me renvoie le message
suivant:
C'est normal que ça ne marche pas avec cette adresse.
Sub EnvoyerE_Mail()
Dim sv As Object, unClient As Object, monMel As Object
Dim enCopie(1) As String, annexes(1) As String ' (exemples)
'sv = createUnoService("com.sun.star.system.SimpleCommandMail")
sv = createUnoService("com.sun.star.system.SimpleSystemMail")
unClient = sv.querySimpleMailClient
if IsNull(unClient) then
MsgBox("Client d'e-mail non disponible", 16)
stop
end if
monMel = unClient.createSimpleMailMessage
with monMel ' évite de répéter monMel.xxxx
.Recipient = "o.jo...@free.fr"
.Subject = "Ceci est un test"
end with
unClient.sendSimpleMailMessage(monMel, 0)
end sub
J'utilise :
monMel.setRecipient("o.jo...@free.fr")
et
unClient.sendSimpleMailMessage(monMel,
com.sun.star.system.SimpleMailClientFlags.DEFAULTS)
et pour moi ça marche.
(je n'ai pas pu tester ta macro)
Florent.
6 messages in org.openoffice.fr.progRe: [prog] Envoyer Email > SMTP; adre...
