Skip to main content

AccessTr.neT


Excel Den Whats Up A Toplu Mesaj Gönderme Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
29
2377

Excel Den Whats Up A Toplu Mesaj Gönderme Hakkında

#9
Merhaba.Arşivimdeki kodu sizin dosyaya uyarladım.


#If VBA7 Then 'Numlock icin
    Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

Sub DikdörtgenKöþeleriYuvarlatýlmýþ1_Týkla()
    Dim i As Long
    With ThisWorkbook.Sheets("MESAJ")
        .Shapes("Ýmza").Copy
      For i = 3 To 5
            DoEvents
              Set ie = CreateObject("InternetExplorer.Application")
              ie.Navigate "https://web.whatsapp.com/send?phone=" & .Cells(i, 1).Value & "&text=" & .Cells(i, 2).Value
              Application.Wait Now + TimeValue("00:00:05")
              SendKeys "^v" 'v normal v
              Application.Wait Now + TimeValue("00:00:05")
              Call SendKeys("{Enter}", True)
              Application.Wait Now + TimeValue("00:00:05")
              SendKeys "^{F4}"
              Application.Wait Now + TimeValue("00:00:05")
              Call SendKeys("{Enter}", True)
              Set ie = Nothing
      Next
    End With
    Application.CutCopyMode = False
    If GetKeyState(vbKeyNumlock) = 0 Then SendKeys "{NUMLOCK}", True 'Numlock icin
    MsgBox "Bitti"
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Excel Den Whats Up A Toplu Mesaj Gönderme Hakkında - Yazar: feraz - 04/05/2021, 01:46