ارسال رسائل للموظفين عن طريقة sms google messages
VBA Excel Code
Dim contact As String
Dim text As String
u = Application.WorksheetFunction.CountA(Sheets("messages").Range("a:a")) - 2
For i = 0 To u
ActiveWorkbook.FollowHyperlink Address:="https:messages.gogle.com"
applaication.Wait (Now + TimeValue("00:00:10"))
contact = Sheets("messages").Range("v2").Offset(i, 0).Value
text = Sheets("messages").Range("v2").Offset(i, 0).Value
Next i
ليست هناك تعليقات:
إرسال تعليق