VBA kode skal fra Excel sende en MS Outlook mail

Denne kode opretter en enkelt mail. Du skal selv tilføje løkken, der gør det 10 gange.

   
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim Varnavn As String
    Dim varantal As Long
         
    Recep = Range("a1").Value
    Varnavn = Range("B1").Value
    varantal = Range("c1").Value
    MsgTxt = "Deres bestilte " & varantal & " stk. " & Varnavn & " er hjemkommet, og kan afhentes."

    Set olApp = CreateObject("Outlook.Application")
    Set olNewMail = CreateItem(olMailItem)

    With olNewMail
        .Recipients.Add Recep
        .Body = MsgTxt
        .Subject = Varnavn
        .ReadReceiptRequested = False
        .OriginatorDeliveryReportRequested = False
        .Save
        .Send
    End With

Med løkke:

Sub SendAktiv()
On Error Resume Next
    Dim olApp As New Outlook.Application
    Dim olNewMail As Object
    Dim Recep As String
    Dim MsgTxt As String
    Dim Varnavn As String
    Dim varantal As Long
    Set olApp = GetObject("Outlook.Application")
    For i = 1 To 10
        Recep = Range("A" & i).Value
        Varnavn = Range("B" & i).Value
        varantal = Range("C" & i).Value
        MsgTxt = "Deres bestilte " & varantal & " stk. " & Varnavn & " er hjemkommet, og kan afhentes."


        Set olNewMail = CreateItem(olMailItem)

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

Tak for svaret, det ser rigtig spændende ud.
Jeg har lige forsøgt nogle gange, men bliver ved med at få følgende fejlmeddelelse:
"Compile error: User-defined type not defined." på teksten "olApp As New Outlook.Application" i kodelinje med 1. Dim - erklæring.
Er der en logik-ting jeg ike kan se?.

Sæt reference til Microsoft Outlook, inde i Tools reference

Uha, hvor det kører nu. Det virker perfekt.
Det er en fornøjelse med så kompetent assistance fra jer begge.
Tak skal I ha'.
Hvad gør vi med points?
Hilsen Henry

Hej igen
får jeg et svar fra jer, så jeg kan ekspedere points?
Hvad vil I sige til denne fordeling: jkrons 75, kabbak 25 ?
Egentlig har jeg fundet et tillægsspørgsmål, kan der blive til en løsning på det i jeres svar?
Kan jeg gemme mails send vha. VBA koden i en undermappe til Sendt Post? Jeg har oprettet en undermappe Auto_Sendt.
Hilsen Henry

Giv point til jkrons, jeg fortalte bare om referencen ;-))

Her er et svar.

Tak for hjælpen. Din kode er perfekt.
Men vil du hjælpe mig med tillægsspørgsmålet også?
Altså de mails der automatisk sendes af din kode, kan de ligeså automatisk gemmes i undermappen Sendt Post \ AutoSendt ?
Spørgsmålet er oprettet her
http://www.eksperten.dk/spm/827202

Den kigger jeg lidt på, når jeg kommer hjem i morgen.

Hej jkrons
Lykkes det at gemme mails i undermappen?
Jeg har leget lidt med Regler i Outlook. En regel  kan lave en kopi af sendte mails (med bestemte ord i teksten) og placere den i AutoSendt mappen, men så er den jo i begge mapper. Kan man rette "copy" til "move" et sted i regeldefinitionen?

På nuværende tidspunkt kan jeg kun få den til at gemme i "hovedmappen".

Vedr. det sidste, mener jeg kun at man kan kopiere - ikek flytte.

Så klarer jeg mig uden den finesse.
Men hvis du støder på muligheden engang, vil du tænke på mig?
Vil du ikke lige sende et svar på spørgsmålet
http://www.eksperten.dk/spm/827202
Du har brugt nogen tankevirksomhed på det.
Og mange tak for den hjælp du har givet mig.
Hilsen Henry