loApp = creat('outlook.application')
lospace = loapp.getnamespace("MAPI")
for each lofolder in lospace.folders
* ?lofolder.name
for each losubfolder in lofolder.folders
* ?"--"+losubfolder.name
if upper(losubfolder.name) = "OUTBOX"
loOutbox = losubfolder
loMessage = loOutBox.items.add()
exit
endif
endfor
endfor
if vartype (loOutbox) = "O" and vartype(loMessage) = "O"
*?"found Outbox"
*lomessage = loOutbox.items.add()
with lomessage
.body = tcBody
.subject = tcSubject
.recipients.add(tcRecipient)
.send()
* ?"message sent"
endwith
endif
Hope this could help :)
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement