رسائل نصية sms بالاكسيل فورم

[salahawwad90]

السلام عليكم

لدي ملف اكسيل فورم ل ارساله سائل نصية الكود يعمل بشكل صحيح ولكن لا يتم لص نص الرساله

ارجو المساعدة 

Private Sub CommandButton1_Click()
    Dim contact As String
    Dim text As String

    '
    contact = TextBox1.Value
    text = TextBox2.Value

    '  Google Messages
    ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com"
    Application.Wait (Now + TimeValue("00:00:10"))

    '
    Call SendKeys("{TAB}", True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys("{TAB}", True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys("~", True) ' Enter key
    Application.Wait (Now + TimeValue("00:00:04"))
    
    '
    Call SendKeys(contact, True)
    Application.Wait (Now + TimeValue("00:00:04"))
    
    '
    Call SendKeys("{TAB}", True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys(text, True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys("~", True) ' Enter key
    Application.Wait (Now + TimeValue("00:00:04"))
End Sub

 

sms.xlsm

[أ / محمد صالح]

جرب هذا الكود المختصر بإذن الله يكون هو المطلوب

Private Sub CommandButton1_Click()
    Dim contact As String, mytext As String

    contact = TextBox1.Value
    mytext = TextBox2.Value

    '  Google Messages
    ActiveWorkbook.FollowHyperlink Address:="https://messages.google.com/web/conversations/new"
    Application.Wait (Now + TimeValue("00:00:10"))

    Call SendKeys(contact, True)
    Application.Wait (Now + TimeValue("00:00:04"))
    Call SendKeys("{TAB}", True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys("~", True) ' Enter key
    Application.Wait (Now + TimeValue("00:00:04"))
    
    Call SendKeys(mytext, True)
    Application.Wait (Now + TimeValue("00:00:01"))
    Call SendKeys("~", True) ' Enter key
    Application.Wait (Now + TimeValue("00:00:04"))
    
    MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق

[salahawwad90]

شكرا أ / محمد صالح الله يبارك فيك الكود 100/100 

اذا ممكن الكود يبعث لمجموعة ارقام رسائل مختلفة

[أ / محمد صالح]

ممكن تستعمل for ..... next

لكن في كل مرة ستفتح نافذة جديدة في المتصفح