Msn messenger -> ai-je recu un nouvel email ?

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (bydavid)