Emaile til emailaddresser i db ?

Loop et JMail script igennem databasen...

http://activedeveloper.dk/download/default.asp?mode=showdownload&id=225

åben databasen og åben tabellen i dataark visning..
Kopier alle emails\'ene og sæt dem ind i en ny postmeddelelse i outlook ..

Hej med jer...

Jeg vil ikke bruge en online form for

mailingliste da dem jeg skal lave dette for ikke

har adgang til en server. De har dog adgang til

MS Outlook så det er derfor jeg spørger om jeg

kan bruge MS Outlook til at emaile til alle i

Access db ?

Det er vist noget med makros eller hvad ?

Ja jeg kunne jo godt kopiere og sætte ind hver

gang jeg skulle sende nyhedsbrev ud men det tror

jeg ikke dem jeg laver denne løsning til kan *-s

<%
    Conn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    strSQL = \"SELECT email FROM maillingliste\"
    myConn.Open Conn
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Response.Write \"<A HREF=\'mailto:di@selv.dk?cc=\"
        Do While Not rs.EOF
        Response.Write rs(\"email\") & \";\"
            rs.MoveNext
        Loop
        Response.Write \"\'>Email alle på maillinglisten</A>\"
    Else
        Response.Write \"Der er endnu ikke nogle emails i databasen endnu\"
    End If
    myConn.Close
    Set myConn = Nothing
  %>

Når du trykker på linket kan du sende en email til alle via Outlook. Du skal lige tilpasse navne, kolloner mm.

Hej tak for svaret men som sagt vil jeg have at

modtagerne af denne løsning kan bruge den uden

at gå på nettet og med MS Outlook.

Desuden fik jeg en fejl der stod

standard klienter til post er ikke korrekt

installeret

Men hvordan laves dette uden at de skal gå på

nettet ?

Med markoer eller ?

ups med markroer mener jeg ok ?

Så kan du lave dit eget mailsystem vha af en database...: http://activedeveloper.dk/download/default.asp?mode=showdownload&id=188

Hej men jeg skal bruge en løsning så jeg kan

bruge ms outlook på min pc og ms access på min pc

og ikke en webbaseret løsning ok ?

Så vidt jeg ved.. Så kan man ikke importere emailadresse fra en database til en mail.

jo det kan man . det har jeg set her på eksperten
eneste problem er at jeg ikke kunne forstå svaret.

Hvorhenne har du set det?!?

Hej under denne kategori søg på outlook evt.

http://www.eksperten.dk/spm/29334

Dette her ovenfor kan jeg bare ikke få til at

virke.

Hm kan jeg bruge dette og hvis jeg kan hvordan ?

http://support.microsoft.com/default.aspx?scid=kb;en-us;Q290658&ID=kb;en-us;Q290658

Det burde du kunne... Du kan jo prøve...

Jamen jeg ved ikke hvordan er der nogle der ved

hvordan ?

Skal jeg bruge DoCmd.SendObject ??????

Eller mapi object?

Prøv med det eksempel der er på siden...

Hvordan ? jeg forstår det jo ikke ...
Hvis I gør så skriv lige en \"oversættelse\" og nogle eksempler tak ... ?

Følgende kode kan f.eks. lægges på en knap.

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

Metoden benytter DAO

/Thomas

(...fortsat)

\"DinTabel\" skal selvfølgelig erstattes af navnet på den tabel, som indeholder email-adresserne.
\"Navn\" skal erstattes af feltnavnet på emailadressen i tabellen

/Thomas
www.makeiteasy.dk

Hej ok skal jeg indtaste de koder under makroer i

outlook xp ?

Hvordan tilpasser jeg den til en knap ?

Passer koden så kun på EN kolonne og ikke en

hel tabel vel ?

For jeg har også andre oplysninger i samme

tabel som jeg ikke vil bruge i forbindelse med

outlook ok ?

Nej, koden skal lægges i Access. F.eks. på en knap på en formular.

Koden kigger kun på én kolonne i tabellen...

Ok så jeg er inde i access xp og der står der

macro så vælger jeg

new

og så kan jeg vælge en i blandt mange actions ok?

Hvilken action skal jeg vælge her og hvor skal

jeg præces sætte denne kode ind ?

Hey Iceb,

Glem makroer (!)

Lav en formular og anbring en knap på den (hvis kommandoknapguiden går igang, så annuller den)

Højreklik på knappen og vælg \"generer hændelsesprocedure\"
Der fremkommer en dialogboks, hvor du vælger \"Kode\"

Herfter åbnes VBA-editoren og der står noget a la:

Private Sub kommandoknap1_Click()

End sub


I mellem disse 2 linier indsætter du koden.

Herefter lukker du VBA-editoren og starter formularen og klikker på knappen.

Hej

Ok på den måde men hvilken formular skal det være

i html ? eller laver man den i access xp ?

Mit eksempel skal laves i Access (XP, 2000 eller 97). Det er ligegyldigt hvilken formular. Lav f.eks. en ny blank formular og placer knappen derpå.

Jeg ved ikke lige hvordan du laver samme funktionalitet i Outlook.

Men du har jo også mulighed for at importere en Access-tabel i outlook, således at navne og email-adresser kommer til at ligge i Outlook. Kig under Filer->Import

Ok jeg går ud fra det er i access ...

jeg får følgende fejl

\"et andet program forsøger at sende email i dit

navn..... *-

så kan jeg klikke ok eller annuler....

Desuden hvordan inkluderer jeg teksten i mit

nyhedsbrev ????

Det med \"et andet program forsøger at sende email i dit navn..... *-\" er en outlook XP-ting, som enten kan slås fra ved at ændre på sikkerhedsniveau\'et eller også må du klikke ja hver gang (selvom det tager tid)

Mht teksten, så er det den du indsætter i felterne \"Brødtekst\" og \"Subject\"

Du kan evt gøre det vha en variabel således:

Dim rs as recordset
Dim Brødtekst as String
Brødtekst = \"Velkommen til denne måneds nyhedsbrev!\" & vbnewline & vbnewline
Brødtekst = brødtekst & \"I denne måned har vi....bla bla bla....\"
Set rs = currentdb.openrecordset(\"DinTabel\")
do until rs.EOF
  docmd.SendObject acSendNoObject,,,rs!Navn,,,\"Nyhedsbrev\", Brødtekst, false
  rs.movenext
loop
rs.close
Set rs = nothing

Hvis du ændre False til True i slutningen af sætningen, så får du lov at redigere mailen inden den bliver sendt. Dvs at den bliver vist på skærmen istedet for at blive afsendt med det samme.

Ok så men så ser det ud til det er nemmere hvis

jeg bare på en måde inkluderer en txt fil eller

doc fil ik ?

Dem jeg laver løsningen til ved nemlig ikke

hvordan de klipper og sætter ind i koden som jeg

kan se man skal med løsningen ovenfor så ville

det være nemmere hvis man bare havde en standard

nyhedsbrevsfil som altid blev sendt altså ikke

som attachment men simpelthen i emailen som et

normalt nyhedsbrev ?

Hvor sætter jeg sikkerh niveauet ned i internet

explorer ?

Mit sikkerh niveau i ineternet explorer står til

lav så det skulle virke så hvor ellers kan jeg

ændre sikkerheden ?

du kan ændre sikkerhedsniveau i Outlook under indstillinger også. Men jeg kender ikke så meget til den nye Outlook til at jeg kan sige dig præcis hvad du skal ændre...

Mht at benytte en txt-fil eller lign, så er det ikke sådan ligetil.
I stedet kunne du måske lave et tekst-felt på din formular, som de kunne skrive i inden de trykkede på knappen.

Denne tekstboks kunne du så navngive \"Brødtekst\", hvorefter koden ville se således ud:

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

/Thomas

Ok jeg troede man kunne sende den som en doc fil.

Jeg ved at man nemlig kan gøre dette i word med

mail merge altså brevfletning....

Nå men nu har jeg lavet et tekstfelt i access

og det virker også i outlook express men når jeg

bruger outlook så brokker den sig og hvis jeg

klikker ok til \"et andet program forsøger at ...\"

så sendes det hele til min sendt box i outlook

hvor jeg så først derefter skal sende det ....

Jeg har ændrer sikkerhedsniveauet men det synes

ikke at ændre på noget underligt for jeg mener

at jeg før har fået det til at køre fint uden

fejlmeddelelser ....

Er der ikke nogle måder man kan undgå den fejl ?

F.Eks ved at give tilladelse i koden eller ?

Eller SKAL jeg bare bruge outlook express ?

Den advarsel du får er ny i Outlook XP. Den kom ikke i de tidligere versioner af Outlook. Så hvis det f.eks. er i Outlook 2000, at du har fået det til at virke uden den meddelelse, så er det derfor.

Du kan muligvis prøve en anden kode, som gør det samme - bare på en anden måde:

Dim OutL As Outlook.Application
Dim Item As MailItem
Dim Receiver As Recipient
Dim rs as recordset

Set rs = currentdb.openrecordset(\"DinTabel\")
do until rs.EOF
    Set OutL = New Outlook.Application
    Set Item = OutL.CreateItem(olMailItem)   
    With Item       
        .Subject = \"Nyhedsbrev\"
        .Body = Me!Brødtekst
        .FlagStatus = olFlagMarked
        \'.Attachments.Add \"Any attachments\"       
        Set Receiver = .Recipients.Add(rs!Navn)       
        If Not Receiver.Resolve Then
            .Display
        Else
            .Send
        End If
    End With   
    Set Item = Nothing
    rs.Movenext
loop
rs.close
Set rs = Nothing

Ovenstående er ikke afprøvet, så der kan opstå småfejl - så bare sig til!

OK jeg har outlook express 5 og der virker det i.

Ja her er en fejl i linien

Dim OutL As Outlook.Application

user defined type not defined

ok?

Hej jeg har fundet ud af hvis jeg sætter værdien

til true så kommer den fejl ikke \"et andet progam

forsøger......... \"

Det dårlige ved dette er bare at man så skal

trykke på send på det outlook vindue der kommer

frem alle de gange som der skal sendes ....

dvs hvis jeg har 100 i min db skal jeg trykke på

send 100 gange ikke smart ? vel ? *s