I have a problem that I would like very much if you help me.
I want to construct a command that load me the addresses of email of all the registers and place them in an email leaf.
With this command I load the email of a register: cmdEmail.HyperlinkAddress = " mailto: " & Me!Email
How I will be able to load all emails? I tried this solution (I do not know if it is correct) but it gives me the following error: "you can enter up to either 255 or 2,048 characters for this property, depending on the data type"
-----------------------------
Private Sub cmdEmail_Click()
Dim estab_esc As Database, OutroSet As Recordset, mailto As String
Set estab_esc = CurrentDb
Set OutroSet = estab_esc.OpenRecordset("select* from
D01_ESTABELECIMENTO WHERE [Email] = not null", DB_READONLY)
If OutroSet.RecordCount > 0 Then
OutroSet.MoveFirst
Do Until OutroSet.EOF
mailto = mailto & OutroSet!Email & "; "
OutroSet.MoveNext
Loop
End If
OutroSet.Close
cmdEmail.HyperlinkAddress = "mailto: " & mailto & "; "
End Sub
--------------------------------------------
Tell me if there is other way to do this
Much thankful by the attention
José Gonçalves
[email protected]
