Skip to main content

AccessTr.neT


Form Daki Metin Kutusunda Bitti Yazılırsa Whatsaptan Mesaj Gönderme

Form Daki Metin Kutusunda Bitti Yazılırsa Whatsaptan Mesaj Gönderme

Çözüldü #1
Frm_Genel Formumdaki, Durumda Bitti yazılırsa WhatsappTel Tablomdaki Telefon numarasına İsim Soy isim Aöıklama ve Sözleşme tutarını whatsaptan göndermek için form açıp burada gönderilecekleri yazsın gönder dediğimde göndersin

Ben ekledim sanmıştım örnek çalışma eklememişim kusura bakmayın. şimdi düzenleyip ekledim
.rar WhatSapp.rar (Dosya Boyutu: 51,93 KB | İndirme Sayısı: 2)
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/08/2026, 09:27, Düzenleyen: haziran4.
Cevapla
#2
Size de merhaba!!!!! Whatsapp işlemlerine ve bu noktada uyarılarıma ilişkin örnekler çok sitede onları inceleyin. Yapamazsanız örnek çalışmanız ile ekleyin talimat geçer gibi şunu yapsın bunu etsin demek yerine ne yaptığınız/ne yapamadınız, ne sonuç almak istiyorsunuz belirterek yardım rica edin, ilgilenmeye çalışalım.
Cevapla
#3
Ben ekledim sanmıştım örnek çalışma eklememişim kusura bakmayın. düzenleyip ekledim.
haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Bir form oluşturup mesaj girişi için uzun metin formatında bir textbox ve göndermek için bir buton ekleyin ve forma örneğin Form_Whatsapp adını verin.
Gönder butonunun tıklanma olayına
Private Sub btn_WhatsAppGonder_Click()
    Dim HedefNumara As String, MesajMetni As String

    HedefNumara = "905XXXXXXXXX"    ' Uluslararası formatta girmelisiniz numarayı, tablonuzdan sorgu veya bir textbox üzerinden girebilirsiniz.
   
    ' Mesaj yazılıp yazılmadığını kontrol edip
    If IsNull(Me.txt_UzunMetin) Or Trim(Me.txt_UzunMetin & "") = "" Then
        MsgBox "Gönderilecek mesajı giriniz.", vbExclamation
        Exit Sub
    End If

    MesajMetni = Me.txt_UzunMetin.Value

    ' WhatsApp urline gönderebilirsiniz
    Application.FollowHyperlink "https://wa.me/" & HedefNumara & "?text=" & MesajMetni
End Sub

BoxDurum adlı textboxınızın güncelleştirme sonrasında olayında bu formu örneğin
If BoxDurum = "BİTTİ" then DoCmd.OpenForm "Form_Whatsapp" gibi bir kontrol kodu ile mesaj formunu açabilir mesaj yazıp gönder butonu ile whatsapp web üzerinden mesajınızı gönderime  hazır hale getirebilirsiniz. Whatsapp Web veya WhatsApp Desktop doğrudan mesaj göndermez. Whatsapp Business hesabınız varsa MEta Console'dan alacağınız API ile doğrudan mesaj gönderebilirsiniz. Aksi halde spam filter doğrudan mesaj göndermenizi engeller, programla zorlarsanız Whatsapp hesaınızı banlar ve o numara ile bir daha Whatsapp hesabı oluşturup kullanamazsınız.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task