Kompliceret spørgsmål om excel/outlook flet med vedhæftede filer

Hvis du bruger Outlook, bør du kunne bruge noget i denne stil:

Sub SendViaOutlook()
    On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim vedhaeft As String

    Set olApp = GetObject("Outlook.Application")

    For i = 1 To 170
        Recep = Range("B" & i).Value
        vedhaeft = Range("C" & i).Value
        MsgTxt = "Her skal teksten til din mail stå."

        Set olNewMail = CreateItem(olMailItem)

        With olNewMail
            .Recipients.Add Recep
            .Body = MsgTxt
            .Subject = Varenavn
            .Attachments.Add sAttachment
            .ReadReceiptRequested = False
            .OriginatorDeliveryReportRequested = False
            .Save
            .Send
        End With
    Next i
End Sub

Email adresser i B-kolonnen, Sti til vedhæftede filer i C-kolonnen.

For at undgå at skulle klikke Ja til ET program forsøger at sende på dine vegne... 170 gange, bør du nok overveje at installere fx ClickYes eller anden SW som kan det samme.

Rettelse:

Sub SendViaOutlook()
    On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim vedhaeft As String

    Set olApp = GetObject("Outlook.Application")

    For i = 1 To 170
        Recep = Range("B" & i).Value
        vedhaeft = Range("C" & i).Value
        MsgTxt = "Her skal teksten til din mail stå."

        Set olNewMail = CreateItem(olMailItem)

        With olNewMail
            .Recipients.Add Recep
            .Body = MsgTxt
            .Subject = Varenavn
            .Attachments.Add vedhaeft
            .ReadReceiptRequested = False
            .OriginatorDeliveryReportRequested = False
            .Save
            .Send
        End With
    Next i
End Sub

Husk at sætte en reference til MS Outollok under Tools- References.

Jeg bruger outlook.

Jeg er ret ny i det her, så hvor skal jeg skrive det ind henne? Kan guide mig lidt igennem :)?

Hvilken version af Excel?

lukket

Jeg ved ikke om vi kan tage spørgsmålet op igen?
Jeg har lagt  den viste makro ind i excel. Det synes at virke ok med hensyn til at sende mails. Tilbage står spørsmålet om at få dannet en flette-fil som vedhæftes i samme makro. De nødvendig oplysninger findes i excel-filen.

vh
sha