Emails ønskes sendt på grundlag af forespørgsel

Private Sub Command0_Click()
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient

    Set OutL = New Outlook.Application

    Set Item = OutL.CreateItem(olMailItem)
   
    With Item
       
        .Subject = \"The subject\"
        .Body = \"This is the body of the mail - http://www.eksperten.dk\"
        .FlagStatus = olFlagMarked
        \'.Attachments.Add \"Any attachments\"
       
        Set Receiver = .Recipients.Add(\"WhoTo)
       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With
   
    Set Item = Nothing

           
End Sub

Vha et recordet og en løkke, kan du gennemløbe alle poster i forespørgslen og sende én post ad gangen.

Dim db as recordset
Set rs = currentdb.openrecordset(\"DinForespørgsel\")
do until rs.EOF
  docmd.SendObject acSendNoObject,,,rs!Navn,,,\"Subject\", \"Brødtekst\", false
  rs.movenext
loop
rs.close
Set rs = nothing

Metoden benytter DAO

This is an example on how to send an email to a single person.
There are two (maybe more) methods you could choose to use for sending to a number of Recipients (people)

You could send the same email and just add the other recipients to the TO list, or you could send one mail per Recipient.

Jeg er ikke ved basen, så jeg tester det lidt senere. Håber det er ok......

no problem!

Til thomasjepsen

Det fungerer perfekt - endnu engang er jeg blevet bekræftet i, at der på Eksperten virkelig er eksperter!

Til terry

Jeg havde brug for en løkke, idet der skal mailes ud til mange adresser. Men tak for dit ellers gode svar.

Mvh

Kfh

I øvrigt, hvad gør man hvis man vil anvende en bestemt skabelon i Outlook?

Så er du faktisk nødt til at indlejre Terry\'s løsning i min, da du har større kontrol over Outlook, når arbejdejder direkte på Outlook-objektet.