email til flere adresser

Jeg sendte dig et eksempel igår. Her kan du vælge at sende til enkelte eller alle.

Se her http://www.eksperten.dk/spm/400097


Dim rs As ADODB.Recordset
Dim Outl As Outlook.Application
Dim Post As Outlook.MailItem
Dim sBCC As String

   
    Set rs = New ADODB.Recordset
   
    rs.Open "Select Email From tblContacts", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
   
    If Not rs.EOF Then
   
        Set Outl = CreateObject("Outlook.Application")
        Set Post = Outl.CreateItem(olMailItem)

        Do Until rs.EOF
       
            sBCC = sBCC & rs!Email & ";"
           
         
            rs.MoveNext
           
        Loop
       
        Post.BCC = sBCC
       
        'Display Outlook
        Post.Display
       
        Set Outl = Nothing
       
    End If

Du har mugs...
det er først nu jeg er vågnet

Ups!!!
Prøver igen
Du har ret mugs...
det er først nu jeg er vågnet

:o)

>>mugs
Jeg ville blive glad hvis du ville sende mig din eksempelBase, da jeg ved at kigge i tidligere spgs. kan se at den har løst mange problemmer :-)
På forhånd tak.
struwing@c.dk

Sendt.

Modtaget
Tak :-)