i have a email form where i send mail or to 1 customer or to all customers
in my laptop its working fine
in my pc when i try to send to all it dosnt do nothing
i can pick a person from the list and send its ok
when i pick all and hit the send button nothing happens
and i need this asap
this is the code:
in my laptop its working fine
in my pc when i try to send to all it dosnt do nothing
i can pick a person from the list and send its ok
when i pick all and hit the send button nothing happens
and i need this asap
this is the code:
Code:
Dim SendToAll As String
LsVw.SetFocus
For i = 1 To LsVw.ListItems.Count
If LsVw.ListItems(i).Checked And Len(Trim$(LsVw.ListItems(i).SubItems(1))) <> 0 Then
SendToAll = SendToAll & LsVw.ListItems(i).SubItems(1) & "; "
End If
Next
If SendToAll = vbNullString Then
MsgBox "list is empty", vbExclamation
TxtFind.text = ""
Check1.Value = vbUnchecked
LsVw.SetFocus
Else
ShellExecute hWnd, "open", "mailto:" & SendToAll, vbNullString, vbNullString, SW_SHOW
End IfCode:
Private Sub Form_Load()
Me.WindowState = 2
ListRTL LsVw
Set rs = CN.Execute("SELECT * FROM Customers ORDER BY FullName")
While Not rs.EOF
Set itm = frmmail.LsVw.ListItems.Add(, , rs!FullName, , "mail")
itm.Bold = True
itm.SubItems(1) = rs!Email
itm.SubItems(2) = rs!Cellular
itm.SubItems(3) = rs!Optional
rs.MoveNext
Wend
CmbHair.AddItem "choose from the list"
CmbHair.text = CmbHair.List(0)
Set rs = CN.Execute("SELECT HairID, HairName FROM HairDressers ORDER BY HairID")
Do While Not rs.EOF
CmbHair.AddItem rs!HairName
rs.MoveNext
Loop
mLVClrHdr.HookToLV LsVw.hWnd, True
mLVClrHdr.glHdrBkClr = &HD1B499
mLVClrHdr.glHdrTextClr = vbWhite
m_hookedLV = True
CmbHair.Enabled = False
End Sub