Voila , c'est un code qui permet de savoir si vous avez recu un nouvelle email (msn messenger).
Source / Exemple :
'Tout d'abord allez dans "projet" et apres dans "references".
' Cochez "Messenger type library"
'Et apres copier-collez ou recopier ce texte.
'(il vous faut 1 label (label1))
Public WithEvents MSN As MsgrObject
Private Sub Form_Load()
Dim msg
Set MSN = New MsgrObject
msg = MSN.UnreadEmail(MFOLDER_INBOX)
If msg >= 1 Then
Label1.Caption = msg & " nouveau(x) email(s)"
Else
Label1.Caption = "Pas de nouveaux emails"
End If
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.