Macro til afseldelse af filer fra Excel

Ja - kan vise den herunder - har du erfaring med VBA?
og så velkommen Eksperten..


Skal nok tilpasses vedr. vedhft. fil

Public Sub test()

Dim Namespace As Object
    Dim EmailSend As MailItem
    Dim EmailApp As Object
    Dim ObjectOutlookMsg As Object
    Dim str_Source_Path As String
    Dim str_File_Name As String
    Dim str_Recipient As String
    Dim str_cc As String
   

    str_Source_Path = "D:\"
    str_File_Name = "*.pdf"
    str_Recipient = "modtager@mail.dk"
       
    Set EmailApp = CreateObject("Outlook.Application")
    Set ObjectOutlookMsg = EmailApp.GetNamespace("MAPI")
    Set EmailSend = EmailApp.CreateItem(0)
   
    EmailSend.Subject = "TEST"
    EmailSend.body = "xxx"
   
    'Loop and attach all files from this folder
    '-------------------------------------------
    str_File_Name = Dir(str_Source_Path)
    Do While str_File_Name <> ""
        EmailSend.Attachments.Add (str_Source_Path & str_File_Name)
        str_File_Name = Dir
    Loop
   
    EmailSend.ReadReceiptRequested = False
    EmailSend.Recipients.Add (str_Recipient)
    EmailSend.CC = str_cc
   
    EmailSend.Save
    EmailSend.Display

Exit_Glo:
    Exit Sub

Err_Glo:
    MsgBox Err.Description
    Resume Exit_Glo

End Sub

Tak for det, og nej jeg er ikke inde i VBA, men ser ud til at jeg bliver nød til at læse lidt på det.
Jeg kan godt se ideen i hvad der sker, men får nok svært ved at passe det ind, uden at grave dybere.
Men har jeg forstået det rigtigt, hvis der genereres 20 Excel filer i den første makro så vil denne sende de 20 filer til 20 forskelige modtagere ?
Per

Eksemplet tager alle filer fra en given mappe:

    'Loop and attach all files from this folder
    '-------------------------------------------
    str_File_Name = Dir(str_Source_Path)
    Do While str_File_Name <> ""
        EmailSend.Attachments.Add (str_Source_Path & str_File_Name)
        str_File_Name = Dir
    Loop

- men det skal du jo ikke.

Hvis filnavnet også blev gemt i Masterfilen - så var det måske mere enkelt.

Hej igen og tak, du lyder som om du er en haj til dette, så måske kunne du svare på om du tror det vil være muligt at ændre den macro jeg har nu (som gemmer en fil)til at den sendte en mail istedet for at gemme en filen :-), det kunne jo være løsningen.
Per

Tænker du så, at filens indhold skal indsættes i mailens "body"?

- men jeg tror godt at din makro kan ændres.

Hej igen
Det kunne være løsningen at indholdet insættes i body, jeg takker for hjælpen og prøver at se om jeg kan sætte noget sammen der virker, ellers må jeg vel få lidt proff hjælp et sted
God weekend
Per

Hej Per

Selv tak - god fornøjelse med det.
btb-assistance kan i givet fald også ydes herfra - @-adresse under min profil.

Også god weekend til dig.

Er løst tak