Nokia PC Suite Programını çalıştırma

[gulvadi]

Merhaba Nokia telofonu ile mesaj atmak istiyorum.
Mesajlar j sütunuda Telefon Numaraları k Sütunuda
Bu forumdan yararlanarak şu kodları yazdım

Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Sub ac()
AD = "C:\Program Files (x86)\Nokia\Nokia PC Suite 7\CommunicationCentre.exe"
On Error Resume Next
WinExec "Explorer.exe " & AD, 1
End Sub

Bu kodlarla program acılıyor.
Ben Dosya>Yeni>Mesaj sekmelerinden mesaj sayfasını açarak telefon ve Mesaj kutularına Telefon no ve Mesajı aktarıp gönder butonuna nasıl yapabilirim

 

[gulvadi]

Konu Hala günceldir

 

[gulvadi]

Konu hakkında biraz fikir vereyim

Sub ac()
AD = "C:\Program Files (x86)\Nokia\Nokia PC Suite 7\CommunicationCentre.exe"
On Error Resume Next
WinExec "Explorer.exe " & AD, 1
Application.Wait (Now + TimeValue("0:00:2"))
[COLOR="Red"]Açma butonuna basılacak[/COLOR]
k = Cells(1, 9) + 1
For i = 2 To k
[COLOR="Blue"]cevap = MsgBox("Göderilen Telefon " & Space(1) & Cells(i, 11), vbYesNo)
If cevap = 6 Then
Cells(i, 11).Select
Selection.Copy
Application.WindowState = xlMinimized[/COLOR]
[COLOR="Red"]Mavi kodların yerine telefon numarası kutuya aktrılacak[/COLOR]
[COLOR="Blue"]MsgBox ("Göderilen Mesaj " & Space(1) & Cells(i, 10))
Cells(i, 10).Select
Selection.Copy
Application.WindowState = xlMinimized[/COLOR]
[COLOR="Red"]Mavi kodların yerine Mesaj metni akarılacak[/COLOR]
Cells(i, 13).Value = "Gönderildi"
[COLOR="red"]gönder butonuna basılacak[/COLOR]
Else
End
End If
Next i
End Sub

şeklinde makro var

 

[gulvadi]

Arkadaşlar aşağıdaki mesaj yerinde programda butonlar var. Ama bu butonların adlarını ben bulup basamadım yardımcı olacak arkadaşları bekliyorum.

Sub ac()
Dim Yol As String
    Yol = "C:\Program Files (x86)\Nokia\Nokia PC Suite 7\CommunicationCentre.exe"
    Shell (Yol), vbMaximizedFocus
        Application.Wait (Now + TimeValue("0:00:2"))
        For i = Cells(1, 14) To Cells(1, 9)
        MsgBox ("Mesaj Butonuna Bas")
        Application.WindowState = xlMinimized
        Application.Wait (Now + TimeValue("0:00:1"))
SendKeys Cells(i, 10)
SendKeys "{Tab}"
SendKeys Cells(i, 11)
SendKeys "{Tab}"
 MsgBox ("Gönder Butonuna Bas")
 Cells(i, 13).Value = "Gönderildi"
 Next i
End Sub