vanuit access naar clipboard

[wake]

Hallo,

Ik heb een query achter een formulier waarin een groep mensen staan met een email adres, nou wil ik eigenlijk met 1 druk op de knop al die email adressen bij bcc in outlook hebben. Ik weet niet of dit kan maar het zou ook al fijn zijn als er een manier mogelijk is om al deze email adressen gescheiden door een komma naar het clipboard gekopieerd kunnen worden.

Het probleem begint alleen al bij het gene dat ik al die email adressen niet eens in een string weet te krijgen omdat ze zegmaar uit een doorlopend formulier komen..

Zou iemand mij opweg kunnen helpen?

Bijvoorbaad dank,

Bo

 

[Jootje13]

Bo,

probeer deze code eens

Private Sub Knop1_Click()
Dim strEmailadressen As String
Dim rs As DAO.Recordset

Set rs = Me.RecordsetClone

Do While rs.EOF = False
strEmailadressen = strEmailadressen & rs![naam van het e-mailadres] & ";"
rs.MoveNext
Loop

If Right(strEmailadressen, 1) = ";" Then
strEmailadressen = Left(strEmailadressen, Len(strEmailadressen) - 1)
End If
Set rs = Nothing

DoCmd.SendObject acSendNoObject, , , , , strEmailadressen, , , True

End Sub

Gr.
Jolanda

 

[wake]

hoi jolanda, bedankt het werkt echt goed.. alleen ik zit nog met een probleempje, ik wil een sjabloon ook openen en heb hetvolgende gedaan:

DoCmd.SendObject acSendNoObject, , , , , strEmailadressen, , , True, "C:\Program Files\Common Files\Microsoft Shared\Briefpapier\technopromo.html"

maar dan laat hij mijn sjabloon niet, weet jij misschien hoe dit komt?

 

[ReneDirks]

Do While rs.EOF = False
     strEmailadressen = strEmailadressen & rs![naam van het e-mailadres] & ";"
     rs.MoveNext
Loop

If Right(strEmailadressen, 1) = ";" Then
    strEmailadressen = Left(strEmailadressen, Len(strEmailadressen) - 1)
End If

Da's altijd lastig he met die laatste puntkomma. Daarom zou ik het zo doen:

Do While not rs.EOF
     strEmailadressen = ";" & strEmailadressen & rs![naam van het e-mailadres]
     rs.MoveNext
Loop

strEmailadressen = mid(strEmailadressen, 2)

Scheelt een IF Right en mogelijk een LEN