03-03-24, 08:55 PM
04-03-24, 01:29 AM
دة الكود المستخدم
كما حاولت ادراج مرفق مع الرسالة - لم اتكمن من الوصول الى الطريقة
---- محتاج ارسل الرسلة بالشكل دة
كود :
Try
Dim web As New WebBrowser
web.Navigate("whatsapp://send?phone=" & txtmob.Text & "&text=" & txtmessage.Text.Replace(" ", "+") & "")
'web.Navigate("whatsapp://send?phone=" & txtmob.Text & "&text=" & txtmessage.Text = "D:/99.pdf")
Timer1.Start()
Catch ex As Exception
Timer1.Stop()
End Tryكما حاولت ادراج مرفق مع الرسالة - لم اتكمن من الوصول الى الطريقة
---- محتاج ارسل الرسلة بالشكل دة
04-03-24, 07:15 AM
الحمد لله
توصلت للتنسيق افضل من السابق
بفضل هذا الكود
اريد إرفاق صورة. او لوجو
توصلت للتنسيق افضل من السابق
بفضل هذا الكود
كود :
strMessage = LblCompany.Text & "%0a" & "Invoice Number : " & txtInvoiceno.Text & "%0a" & "Invoice Date : " & DtInvdate.Value.ToString("MM/dd/yyyy") & ""
web.Navigate("whatsapp://send?phone=" & txtcontact.Text & "&text=" & strMessage & "")