.msg filer i en folder skal sendes VB Macro Outlook

Forslag m/forudsætningerne:
VBA-koden indsættes i et Modul i OutLook
Har kopieret .MSG filer til en OutLook-folder under Private Mapper med navnet TestMappe

Public Sub afsendMails()
Const overMappenavn = "Private Mapper"
Const mappeNavn = "TestMappe"

Dim mailApp, Namespace, aFold, bFold
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set nyMail = mailApp.CreateItem(olMailItem)
   
    Set aFold = Namespace.Folders
    Set bFold = aFold(overMappenavn)
    Set mappen = bFold.Folders(mappeNavn)
   
    For x = 1 To mappen.Items.Count
        Set nyMail = mappen.Items(1)
               
'        nyMail.Display
        nyMail.Send
    Next x
End Sub

Hej
Skal det være en outlook folder? Jeg har dem bare liggende i en lokal folder på C: - kan jeg ikke fange dem derfra?

Hej

Har prøvet på basis af en tilsvarende folder - men det lykkedes ikke i første omgang.

Du kan i et huk kopiere dem alle til en Outlook-folder - der fungerer det.

Okay, så må jeg lige finde ud af hvordan jeg fra VB gemmer dem i en outlook folder i stedet for i c:\temp ...

Hænger lige fortsat lige ved den med C:...

Jeg kan finde filerne således:

Sub afsendMails()
Debug.Print "afsend mails"
Const overMappenavn = "Private Mapper"
Const mappeNavn = "TestMappe"

Dim mailApp, Namespace, aFold, bFold
Set mailApp = CreateObject("Outlook.Application")
Set Namespace = mailApp.GetNamespace("MAPI")
Set nyMail = mailApp.CreateItem(olMailItem)
 
Dim filename As String
Dim attr As Integer

' retrieve .msg files
filename = Dir$("c:\temp\*.msg")

Do Until filename = ""
    attr = GetAttr("c:\temp\" & filename)
        Debug.Print filename
        Set nyMail filename
        nyMail.Display
    filename = Dir$
Loop

End Sub

Men den fejler desværre i

Set nyMail filename

da filename ikke er et object. Kan jeg gøre noget der?

Vender tilbage senere..

Lukker