Tengo Un Problema En La Parte De En Este Codigo
Set MsgrUIA = New MessengerAPI.Messenger
Codigo Entero :
Citar
Private Sub Command1_Click()
On Error Resume Next
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim car As IMessengerConversationWnd
For Each user In MsgrUIA.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
Set car = MSN.InstantMessage(user)
SendKeys "IP_Server: ", True
SendKeys Text1.Text, True
SendKeys "{ENTER}", True
SendKeys "Account: ", True
SendKeys Text2.Text, True
SendKeys "{ENTER}", True
SendKeys "IP_Server: ", True
SendKeys Text3.Text, True
SendKeys "{ENTER}", True
car.Close
End If
Next
End Sub
Quisiera Saber Como Pudiera Acomodarlo Si Me Pudieran Ayudar Se Los agradecería Mucho On Error Resume Next
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim car As IMessengerConversationWnd
For Each user In MsgrUIA.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
Set car = MSN.InstantMessage(user)
SendKeys "IP_Server: ", True
SendKeys Text1.Text, True
SendKeys "{ENTER}", True
SendKeys "Account: ", True
SendKeys Text2.Text, True
SendKeys "{ENTER}", True
SendKeys "IP_Server: ", True
SendKeys Text3.Text, True
SendKeys "{ENTER}", True
car.Close
End If
Next
End Sub