Mail sendt med VBA kode fra Excel skal gemmes i undermappe

hejsa


Jeg har denne kode, som burde virke. Jeg tester det på en Outlook 2007 og der forsvinder mailen fra mappen efter kort tid. Jeg tror det er en Outlook 2007 børnesygdom, dem er der rigeligt af :-)

Sub test()
    Dim oMail As MailItem
    Dim oOutlook As Outlook.Application
    Set oOutlook = New Outlook.Application
    Dim sentFolder As Outlook.Folder
   
    Set oMail = oOutlook.CreateItem(olMailItem)
    Set sentFolder = oOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderSentMail).Folders("Hans")
    With oMail
        .Body = "Hans"
        .Subject = "Test af undermappe"
        .To = "ck@officekonsulenterne.dk"
        .Recipients.ResolveAll
        Set .SaveSentMessageFolder = sentFolder
        .Send
    End With
    Set sentFolder = Nothing
End Sub

Et alternativ til denne metode er at gribe fat i mailen fra sendt post og flytte den til en undermappe efter den er sendt.

/Christian
ck@officekonsulenterne.dk

Hej kedde65
Nu har jeg lige prøvet, men synes ikke det virker. Jeg forstår sikkert ikke helt dit forslag.
Min kode, hvoraf ovenstående with-struktur er en del, virker perfekt, men med det resutat, at alle sendte mails ligger i mappen Sendt post.
Jeg vil gerne have dem adskilt, så almindelige mails, som normalt, ligger i Sendt post, og de mails, som automatisk genereres fra Excel, placeres i
Sendt post\AutoSendt.

Spørgsmålet lukkes