comment lire le sujet d'un mail ?

Question

hello Je ne trouve pas le moyen de sortir le sujet d'un mail. Que faut -il ajouter pour que cela fonctionne dans ce script (partie) Private Function Verif() On Error GoTo oups If Check1.Value = 1 Then Dim tmp As String Set evt = ws If evt.State = sckConnected Then Exit Function nbrecept = 0 ws.connect LireINI("email", "pop"), 110 While ws.State <> sckConnected DoEvents Wend 'Attente du message de bienvenue nextSend = False While nextSend = False DoEvents Wend nextSend = False ws.SendData "USER " & LireINI("email", "utilisateur") & vbCrLf While nextSend = False DoEvents Wend nextSend = False ws.SendData "PASS " & UncryptMsg(LireINI("email", "mdp")) & vbCrLf While nextSend = False DoEvents Wend nextSend = False ws.SendData "STAT" & vbCrLf While nextSend = False DoEvents Wend Text1.Text = Mid(AnSwEr, 4, 3) & " nouveau(x)" Dim nb As Integer nb = Mid(AnSwEr, 4, 3) nextSend = False ws.SendData "QUIT" & vbCrLf While nextSend = False DoEvents Wend ws.Close If Text1.Text <> Text2.Text Then 'TextToSpeech1.Speak (Text1.Text) Text2.Text = Text1.Text 'modif icone IconeT.szTip = "ZAMISnet-Info - " & Text2.Text & Chr$(0) If nb = "0" Then IconeT.hIcon = Image2.Picture Else IconeT.hIcon = Image3.Picture End If Shell_NotifyIcon MODIF, IconeT Beep 2000, 20 Beep 4000, 20 Beep 2000, 20 'fenetre d'alerte Form3.Top = Screen.Height Form3.Left = Screen.Width - Form3.Width Form3.Show Form3.Label2.Caption = Text1.Text 'msgbox d'alerte If LireINI("email", "box") <> vbNullString Then If LireINI("email", "box") = 1 Then MsgBox "Vous avez " & Text1.Text, vbInformation, "ZAMISnet-Info" End If End If End If End If oups: ws.Close End Function Merci de votre à tous à bientôt bye

PCPT · Answer

salut,

       nextSend = False
        While nextSend = False
        DoEvents
        Wend
nextsend change quand?
sinon va voir ma source CSMS, le contr&#244;le AfVBfWsock contient toutes les instructions pour lire un mail sous VB6.
@+
PCPT    [AFCK]

cs_Didier72 · Answer

hello

Merci, mais je comprends pas le principe pour voir le sujet par rapport &#224; ce que tu as mis ?

Merci de ton aide , c'est sympa de ta Part ...

J'ai DL ta source, je vais tenter de comprendre ...

Comment lire le sujet d'un mail ?

2 réponses

Discussions similaires