MultiSelect i liste

Function SendMail()
Dim Out As Outlook.Application
Dim Post As Outlook.MailItem
Dim rs as ADODB.Recordset

Set Out = CreateObject("Outlook.Application")
Set Post = Out.CreateItem(olMailItem)
Set rs = New ADODB.Recordset
rs.Open "DinForespørgsel",currentproject.connection
do until Rs.EOF
Post.To = Rs![E-Mail adresse fra forespørgslen]
POst.Subject = "Emne"
Post.Body = "Brødtekst"

rs.MOvenext
Post.send

loop
rs.Close
set rs = Nothing
Set Out = Nothing
End Function


Funktionen kræver reference til Outlook og ADO.

NB: Den er ikke afprøvet men blot skrevet ud fra hovedet...!

Reference til Outlook? Mener du stien til Outlook?

Fra VBA skal du gå i menuen Tools->References og afkrydse Microsoft Outlook Object Library X.0

Dumt spørgsmål måske - men skal det også gøres for ADO?

Hvis du arbejder med Access 2000 eller XP, så vil den formentlif være der i forvejen. Men ja...den skal være der. Den hedder bare "Microsoft ActiveX Data Objects 3.x Library"

Du har ret, den er der i forvejen... Men det virker stadig ikke. Der hvor der står "Post.To = Rs![E-Mail adresse fra forespørgslen]
" skriver jeg bare kolonnen som indeholder min e-mailadresser ikk'?

>> thomasjepsen
Krever den vba setning aktivX moduller.
:o)

Smads->jo, du skriver navnet på feltet med E-mail-adresserne.

"DinForespørgsel" skal jo selvfølgelig også erstattes med navnet på din forespørgsel.

sætningen rs.Open "DinForespørgsel", CurrentProject.Connection bør nok ændres til:
rs.Open "DinForespørgsel", CurrentProject.Connection,adOpenStatic

Hvilken linie fejler den, hvis du klikker Debug, når den fejler?

Henrik->Dim rs as ADODB.Recordset kræver ADO (ActiveX Data Objects)

>> thomasjepsen
Tak for det hurtige svar.
Vh Henrik

thomasjepsen: Ja, jeg har ændret navnet på min forespørgsel :)

Når jeg aktiverer min knap står der:
"Procedure declaration does not match description of event or procedure having the same name"

Det du har skrevet i "" skal det stå med eller uden, når jeg skriver min egen forespørgsel?

Der skal stå "" omkring forespørgselsnavnet - præcis som i eksemplet i mit første indlæg.

Hmmm, det har jeg også gjort, men den vil ikke virke alligevel...??

Prøv at indsæt hele koden her (inklusiv Private Sub Knap_Click())

Her er den, jeg kunne ikke få lov til at sætte funktionen ind i min 'private sub' så jeg prøvede det her, men det virker jo heller ikke :)

Private Sub cmdSendMail_Click()

Function SendMail()

End Function

Function SendMail()
Dim Out As Outlook.Application
Dim Post As Outlook.MailItem
Dim rs As ADODB.Recordset

Set Out = CreateObject("Outlook.Application")
Set Post = Out.CreateItem(olMailItem)
Set rs = New ADODB.Recordset
rs.Open "qrySearchResult", CurrentProject.Connection, adOpenStatic
Do Until rs.EOF
Post.To = rs![Email Address]
Post.Subject = "Emne"
Post.Body = "Brødtekst"

rs.MoveNext
Post.send

Loop
rs.Close
Set rs = Nothing
Set Out = Nothing
End Function

End Function

Prøv denne:

Private Sub cmdSendMail_Click()
Dim Out As Outlook.Application
Dim Post As Outlook.MailItem
Dim rs As ADODB.Recordset

Set Out = CreateObject("Outlook.Application")
Set Post = Out.CreateItem(olMailItem)
Set rs = New ADODB.Recordset
rs.Open "qrySearchResult", CurrentProject.Connection, adOpenStatic
Do Until rs.EOF
POst.Recipients.Add rs![Email Address]
Post.Subject = "Emne"
Post.Body = "Brødtekst"
Post.Display
'Post.Send
rs.MoveNext

Loop
rs.Close
Set rs = Nothing
Set Out = Nothing
End sub

Du er bare go' :)

1000 tak for hjælpen!

Ren nysgerrighed: Hvad laver den plinger foran Post.Send ('Post.Send)??

Glem det - går ud fra at det bare er en kommentar :) Jeg plejer at skrive 'rem:' så jeg kendte det ikke lige...

thomasjepsen: Hvis jeg hellere vil have mailadresserne i BCC feltete kan jeg ikke bruge 'Post.BCC.Add rs![Email Address]'. Hvordan klare jeg den?

For at få det i BCC skal du skrive:
Post.BCC = rs![Email Address]

Pling'en er kun for at du kunne se hvordan syntaksen var, hvis du ønskede at sende med det samme. Post.Display åbner mailen på skærmen først, hvorefter du selv skal klikke på "Send"

Det virker - næsten. Den løber dem alle sammen i gennem, men tager kun den sidste mailadresse. Det er mærkeligt, for det virkede i to-feltet!!?!

hmm, ideen er jo, at den sender én ad gangen. Derved står der jo kun én adresse i hver mail.

Da jeg brugte 'POst.Recipients.Add rs![Email Address]' sendte den til samtlige adresser på en gang - adskilt af kommaer, så kan jeg bare ikke forstå hvad der er anderledes ved BCC?

Det er fordi det er 2 forskellige metoder. De burde virke ens, men det er i virkeligheden din post.recipients.add, som virker forkert (det har jeg oplevet før)

Prøv denne model i steder:

Private Sub cmdSendMail_Click()
Dim Out As Outlook.Application
Dim Post As Outlook.MailItem
Dim rs As ADODB.Recordset

Set Out = CreateObject("Outlook.Application")
Set Post = Out.CreateItem(olMailItem)
Set rs = New ADODB.Recordset
rs.Open "qrySearchResult", CurrentProject.Connection, adOpenStatic
Do Until rs.EOF
Post.BCC = Post.BCC & rs![Email Address] & ";"
Post.Subject = "Emne"
Post.Body = "Brødtekst"
rs.MoveNext
Loop

Post.Display
'Post.Send
rs.Close
Set rs = Nothing
Set Out = Nothing
End sub

Den skriver alle mailadresserne i BCC feltet, men uden semikolon - jeg har prøvet at indsætte et mellemrum før og efter ';', men det ændrer ikke noget.
(Du skal selvfølgelig nok få point få det her ekstra arbejde - det var jo ikke med i det oprindelige spørgsmål :) ).

Prøv med "," i stedet for ";"

Jeg er nødt til at løbe nu, men vil formentlig vende tilbage i aften - ellers i morgen.

Jeg prøver... :)

DET VIRKER :)!