Hallo allemaal!
ik heb een vraagje. Sinds kort zijn we op het werk over van Lotus Notes naar Outlook 2003.
We hadden verschillende applicaties in het office pakket gemaakt die via Lotus Notes mails versturen. Dat moeten we nu via Outlook maken.
Probleem is de bekende beveiliginswaarschuwing. Dit wil ik omzeilen door de aangemaakte berichten op te slaan in Drafts. Maar dan wel in een submap binnen Drafts die ik tijdens het testen maar even "Verzenden" heb genoemd.
Vervolgens wil ik met een macrootje binnen outlook alle mail in de map "Verzenden" versturen.
Het probleem nu is het volgende, het lijkt mij alleen maar om een mail op te slaan in Drafts en niet in de submap. Kan iemand mij hiermee helpen?
Ik gebruik de volgende code om de mail in drafts te zetten, heb al van alles uitgeprobeerd, zal ik verder niet posten want werkte toch niet...
Alvast bedankt!
ik heb een vraagje. Sinds kort zijn we op het werk over van Lotus Notes naar Outlook 2003.
We hadden verschillende applicaties in het office pakket gemaakt die via Lotus Notes mails versturen. Dat moeten we nu via Outlook maken.
Probleem is de bekende beveiliginswaarschuwing. Dit wil ik omzeilen door de aangemaakte berichten op te slaan in Drafts. Maar dan wel in een submap binnen Drafts die ik tijdens het testen maar even "Verzenden" heb genoemd.
Vervolgens wil ik met een macrootje binnen outlook alle mail in de map "Verzenden" versturen.
Het probleem nu is het volgende, het lijkt mij alleen maar om een mail op te slaan in Drafts en niet in de submap. Kan iemand mij hiermee helpen?
Ik gebruik de volgende code om de mail in drafts te zetten, heb al van alles uitgeprobeerd, zal ik verder niet posten want werkte toch niet...

Alvast bedankt!
Code:
Dim OutApp As Object
Dim OutMail As Object
Dim objFolder As MAPIFolder
With OutMail
.To = "Mijnmail@domein.nl"
.Subject = "Dit is een test mail!"
.body = "TEST"
.Save
End With
Set OutMail = Nothing
Set OutApp = Nothing