6 svar · 232 visningar · startad av Jesper T
Jag vill att MsgBoxen skall visas om "0 messages" finns med i texten.
Men den ploppar upp hela tiden.
Private Sub sckmail_DataArrival(ByVal bytesTotal As Long)
Dim A As String
sckMail.GetData A
txtMail.Text = txtMail.Text + A
If InStr(A, "0 messages") > 0 Then MsgBox "Epost i inboxen!"
End Sub
Tror inte det är där felet ligger. Det är nog mer någon annanstans där txtMail finns med. Du kan ju annars köra en msgbox (alt. debug.print) på din instr-rad:
MsgBox InStr(A, "0 messages")
För att få veta vart den tycker att "0 messages" står med.
Den skriver ut 26!
Det är det precisa uttrycket "0 messages" som skall räknas.
Den skriver ut 26!
Men i så fall finns ju texten på position 26. Och det borde du ju se om du skriver ut värdet på A?
Ok, nu gör jag så här:
If Not InStr(A, "0 messages") = 26 Then
MsgBox "Du har nya meddelanden i din brevlåda!"
End If
Funkar inte. Msgboxen körs även fast resultatet är 26.
Gör jag fel eller?
Jesper T skrev:
Msgboxen körs även fast resultatet är 26.
Nja. Det är ju omöjligt. Däremot kan man ju tänka sig att sckmail_DataArrival triggas flera ggr innan du fått all data och att messageboxen kommer upp ibland. Vad är det du försöker göra: Hämta mail via POP3, eller nåt?
Japp.