MSN Vraagje

[Ryantjuh]

Probeer is:

Public WithEvents MsgrAPI As MessengerAPI.Messenger
Public WithEvents MSN As Messenger.MsgrObject
Public MsgrApp As IMessengerApp
Private Sub Form_Load()
Set MSN = New Messenger.MsgrObject
Set MsgrAPI = New MessengerAPI.Messenger
Set MsgrApp = CreateObject("Messenger.MessengerApp")
End Sub
Private Sub MSN_OnTextReceived(ByVal pIMSession As Messenger.IMsgrIMSession, ByVal pSourceUser As Messenger.IMsgrUser, ByVal bstrMsgHeader As String, ByVal bstrMsgText As String, pfEnableDefault As Boolean)
bstrMsgHeader = "MIME-Version: 1.0" & vbCrLf & "Content-Type: text/plain; charset=UTF-8" & vbCrLf & "X-MMS-IM-Format: FN=Tahoma; EF=; CO=" & "38164217" & "; CS=0; PF=42" & vbCrLf & "TypingUser: Typing..." & vbCrLf & vbCrLf
pSourceUser.SendText bstrMsgHeader, "Sorry.. ik ben er even niet!", MMSGTYPE_ALL_RESULTS
End Sub

Je had namelijk bstrMsgHeader niet gebruikt
en zonder bstrMsgHeader kan msn geen bericht sturen..

Let wel op! Dit zal alleen maar werken met Msn 4.7 of lager!

Gegroet,

Ryan!

 

[XenomX]

ok

had ik al maar dan anders

MVg