Sende email til personer i accessdatabase fra outlook express

Du kan sende mail på den simple og den avancerede måde. Dette er den simple:
docmd.SendObject ,,,"Ole@Olsen.dk",,,"Emne", "Brødtekst", "True

This function require that you have a reference to Outlook. It also places email address in the BCC field but that can easily be changed.

If you call the function with abodty text then this will also be filled out.



Function OpenMail(Body As Variant) As Integer
Dim rs As ADODB.Recordset
Dim Outl As Outlook.Application
Dim Post As Outlook.MailItem
Dim sBCC As String

    On Error GoTo Proc_Err

   
   
    Set rs = New ADODB.Recordset
   
    rs.Open "Select * From YourMailList", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
   
    If Not rs.EOF Then
    'Open Outlook

        Set Outl = CreateObject("Outlook.Application")
        Set Post = Outl.CreateItem(olMailItem)

        Do Until rs.EOF
       
            sBCC = sBCC & rs!Email & ";"
                       
            rs.MoveNext
           
        Loop
       
        Post.BCC = sBCC
       
        If Not IsNull(Body) Then
            Post.Body = Body
        End If
       
        Post.Display
       
        Set Outl = Nothing
       
    End If

Proc_Exit:

    On Error Resume Next
   
    Set rs = Nothing

    Exit Function

Proc_Err:
   
    Msgbox "ERROR ..."

    Resume Proc_Exit


End Function

>>terry
Can you automate anything with Outlook Express as it is a free appl. ??
If true - tell me the name of the reference dll
I think the above is only working with the real Outlook.

Henrik

"Microsoft Outlook 8.0 Object Library"  or better.

You can maybe also use the MAPI message objects

hnteknik>was this an answer to your own question "Microsoft Outlook 8.0 Object Library"  or better." ?

I am not sure if its possible to automate Outlook Express, it isnt a part of Office so I don´t think it will be!

Terry>> ja det var en bekræftelse af, at det går kun med den rene outlook.
robinhood spørger efter 'Sende email til personer i accessdatabase fra outlook express' og det må vi konstatere, at ded går umiddelbart ikke, men må ske kan man sende igennem andre mailobjekter MAPI etc.

Installér Outlook er løsningen.

:o) hehe I hadnt seen Express

Yes I think the solution is upgrade to Outlook!

En mulighed kan være, at lave en liste med alle e-mailadresser, og derefter med en VBA-kode overføre disse til en felt der ved hjælp af DoCmd.SendObject sender til alle adresser i feltet.

Kan sende en testdb (db58), blot læg din e-mail.

robinhood>If you gave a little feedback then perhaps we can help!

.

Det ser ud som om min eneste mulighed er at opgradere til Outlook.

Jeg sender til een eller mange fra Outlook Expres efter ønske. Hvis du lægger sin e-mail kan jeg sende dig et eksempel.

Private Sub Command0_Click()
Dim rs As ADODB.Recordset
Dim sEmail As String

    Set rs = New ADODB.Recordset
    With rs
       
        Set .ActiveConnection = CurrentProject.Connection
            .Open "Select Email From tblEmails", , , adLockOptimistic
   
        sEmail = .GetString(adClipString, , , ";")
       
       
       
    End With
    rs.Close
   
    'emails placed in BCC
    DoCmd.SendObject , , , , , sEmail, "Subject", "This is the body text", True
   
     
End Sub

.

.

.

come on robinhood, how about some feedback!

.

Undskyld jeg har været lidt fraværende. Terrys svar er det jeg havde brug for.

and?

.

are we getting there?

tak

Er der ikke en begrænsning, i Outlook, på hvor mange mailadresser man kan have med?
Vi det fx. virke ved 200 forskellige mailadresser?

Hi Mikael, I remember seeing somthing here in eksperten concerning a limit, but I must admit I dont know if there is. It would be quite easy to slit it into smaller bites though.
But dont you have FMS? :o)