MAil til 500 adresser

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

Ved brug af ekspertens søgefunktion med søgeordet "email" får du 620 svar!!

gå over i for dataarkvisning>>marker mailadresserne>>H-klik >kopier
i til i din mail >>H-klik>>set ind
så har du dem alle

Så husk lige at sende dem som Bcc, da det minimerer risikoen for virusspredning.

Hvis du ikke har mod på at gennemtrawle 620 svar, kan du evt. benytte Word som brevfletter(hvis du er så heldig at have mulighed for at flette til elektronisk post). Herved får du en brugervenlig måde at benytte andre attributter fra din Access db i mailen.
kig i Words hjælp for nærmere info omkring det...

og luk så også lige alle de gamle spm
nogle er ret gamle
http://www.eksperten.dk/bruger.phtml?navn=jonasclub-p&option=22

lukketid

Du kan gøre det på denne måde. Det betyder ganske vist, at du bliver promptet for hver e-mail du vil sende. Du har form2 med dine e-mail og 3 ubundne tekstbokse med navnene "email", "emne" og "indhold", som sættes = variablerne a,b og c. derefter sikres det, at du står i formularens første post. Dine e-mail ligger i Tabel2, hvor du samtidig har et felt id. Derefter lopper du gennem hele tabellen.

Dim MaxUd, K
Dim a As String
Dim b As String
Dim c As String
DoCmd.GoToRecord acForm, "form2", acFirst, 1
a = Me.email
b = Me.emne
c = Me.indhold
MaxUd = DMax("[id]", "Tabel2")
For K = 1 To MaxUd
DoCmd.SendObject , "", "", a, "", "", b, c, False, ""
DoCmd.GoToRecord acForm, "form2", acNext, 1
Next K

Lav en formular med 1 lilste, hvor egenskaben flere markeringer er sat til simpel. Derefter 3 tekstbokse som ovenfor skitseret. Brug denne kode til at overføre de valgte e-nailadresser til det ubundne tekstboks email:

Dim itm As Variant
Dim txt As String
If Me!Liste1.ItemsSelected.Count > 0 Then
For Each itm In Me!Liste1.ItemsSelected
txt = txt & Me!Liste1.ItemData(itm) & "; "
Next itm
txt = Left(txt, Len(txt) - 2)
End If
Me!email = txt

Og denne kode til at sende meddelelsen:

Dim a As String
Dim b As String
Dim c As String
a = Me.email
b = Me.emne
c = Me.indhold
DoCmd.SendObject , "", "", a, "", "", b, c, False, ""

Det er dog ikke afprøvet.