Udsendelse af email

Nu ved jeg jo ikke hvor du har læst, men vil tillade mig at henvise til min artikel om emnet:

http://www.eksperten.dk/artikler/371

Om du sender fra den ene e-mail eller den anden er ligegyldigt.
Jeg er svar skyldig vedr. antal af andresser.

Du kan lægge denne kode i et modul:

Public Sub SendMails(Qry As String, Emne As String, Brødtekst As String, Optional Vedhæftet As String)
Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient
Dim cn As ADODB.Connection
Dim rs As New ADODB.Recordset
   
    Set cn = CurrentProject.Connection
    rs.Open Qry, cn, adOpenStatic, , adCmdTable

    Set OutL = New Outlook.Application

    Do Until rs.EOF
        Set Item = OutL.CreateItem(olMailItem)
       
        With Item
            .Subject = Emne
            .Body = Brødtekst
            .FlagStatus = olFlagMarked
            If Len(Vedhæftet) > 0 Then
                .Attachments.Add Vedhæftet
            End If
            .Recipients.Add rs!Email
            .Send
        End With
        Set Item = Nothing
        rs.MoveNext
    Loop
End Sub


Herefter kalder du den bare f.eks. således:
call SendMails("qryEmailadresser", "Test", "Dette er en test!","C:\dinfil.txt")

I din qryEmailadresser, skal email-feltet bare hedde "Email"

Må jeg lige indskyde en pind her :  er der nogen der har en måde at sende mail via OutLook så den nye sikkerhed ikke spærrer for alt. Jeg har hørt at der skulle finde en eller andet .dll fil der kan

Du kan ændre i dine outlook settings ved at følge denne her. Det er lidt bøvlet, men det virker.

http://www.microsoft.com/office/ork/xp/four/outg03.htm

Det kræver bare at jeg enten skal fysisk rundt til alle mine kunders maskiner, skal til at lave en vejledning til dem eller til at lave et eller andet setupscript der fikser det. Hvilken af disse der er mest bøvlet ved jeg ikke rigtig :-)
Jeg er næste helt 100 på at jeg har set et eller andet sted hvor der blev omtalt en .dll fil der bar skulle ligge på maskinerne og så kunne det lade sig gøre, men det kan være at det bare er ønsketænkning.

hugopedersen > Jeg er lidt i tvivl om, hvad du mener.
Jeg benytter XP med SP2 og Outlook, og sender mails fra Access uden problemer. Kasn sende dig en testdb om ønsket.

Jeg kan også sagtens sende mail, men den der besked 'Et andet program forsøger at sende..............'  Det er den jeg gerne vil undgå. Den kommer lige gyldigt om jeg bruger en thomasjepsen lignende funktion eller en simpel SendObject.

Nå det var ikke det dennis78's spørgsmål drejede sig om - jeg finder nok en løsning. Og hvis jeg så bare husker at gemme det :-)

Godmorgen Hugo

Ok - Den besked får jeg også, når jeg sender fra Access. Desværre har jeg ikke Access på denne maskine, så jeg kan ikke rode med det før jeg kommer hjem. Men jeg vil tro, at vi skal se på opsætningen i OutLook.
Muligvis kan det være en opsætning i mit Norton.

Det er noget der er sket fra Outlook XP SP1 så vidt jeg husker (eller var det SP2) Det kan vist nok fikses ved at lave noget fusk i registreringsdatabasen, men det er jo ikke sikkert at ens kunder er glade for at man piller i deres sikkerhed :-)

Mit forslag kræver at du/i bruger en exchange server. Der bliver oprettet en mappe med indstillingerne i public folders og den læser dine brugere ind automatisk, hvis de lige køre en .reg fil som du kan sende til dem.
Efter det kører det bare. Men har du ikke Exchange, så virker ideen vist ikke. Det står øverst i starten af løsningen hvad der til for at man kan implementere det.

Har du fået løst dit problem. Ja/nej. Skal vi have lukket spørgsmålet.

tak Dennis :o)