Whatsapp uygulama için izin mesajını iptal etme hk.

[tamer42]

Merhaba,
whatsapp masaüstü uygulması üzerinden mesaj göndermek iterken;
her seferinde aşağıdaki izin mesajını vermekte, bu durumda her seferinde "izin ver" demek zorunda kalıyorum,
bunun Application.DisplayAlerts = False gibi bir çözümü olabilir mi?

öneri ve tavsiyekeriniz için şimdiden teşekkürler,

ile de çözülmüyor,

Sub whats_App()
Dim IE As Object
Dim SH As Worksheet
Dim myCell As Range
Dim mesaj As String
Dim phone As String

Application.DisplayAlerts = False

Set SH = Sayfa1

phone = SH.Cells(2, 1)
mesaj = "Bu Bir test mesajıdır, Lütfen dikkate almayınız … !!!"

Set myCell = SH.Range("A2:D2")
myCell.CopyPicture xlScreen, xlBitmap


Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "whatsapp://send?phone=" & phone & "&text= " & mesaj & vbLf & " "
Application.Wait Now() + TimeSerial(0, 0, 2) '
   
    Call SendKeys("^v")
    
    Application.Wait Now() + TimeSerial(0, 0, 2)

Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("{ENTER}", True)

Application.CutCopyMode = False

Set myCell = Nothing
Set IE = Nothing
Set SH = Nothing

End Sub

 

[Asri]

Resmi tam göremeiyorum ama, outlook daki problem gibi olabilir.
Antivirüs yok ise, sistemde üctretsiz de olsa bir antivirüs yüklü olması problemi çözebilir.