ShellExecute or string definition ?

[dominiopt]

Hi everybody in the following piece of code after several mail addresses combined in message (String) the ShellExecute don't launch as expected the mail software, like he does for few items.

The problem must be in ShellExecute or in String variable definition String (fixed-length) or String (variable-length), in last case how can i change fixed for variable length.

Dim message As String

Set rs = db.OpenRecordset(sSQL)
Do While Not rs.EOF
message = message & "; " & rs.Fields("ref11&quot
rs.MoveNext
Loop
rs.Close

ShellExecute Me.hwnd, "open", "mailto:?bcc=" & message, "", "", "1"

Any help will be very appreciated.
Thanks

Fernando

 

[chiph]

Try doing something like this:

  Dim bFirst As Boolean

  bFirst = True

  Do While Not rs.EOF
    If bFirst Then
      message = rs.Fields("ref11").Value
      bFirst = False
    Else
      message = message & "; " & rs.Fields("ref11").Value
    End If
    rs.MoveNext
  Loop

Otherwise your email address is starting with a semi-colon, which could cause problems.

Chip H.