Làm sao để dùng VBA trong Excel để gửi tin nhắn lên Zalo (Official Account) (1 người xem)

[MinhKhai]

Kính gửi các chuyên gia VBA

Chỗ em vừa có phần mềm sử dụng nội bộ mà có thể gửi tin qua Zalo (thông qua Offical Account)
Cụ thể tài khoản Zalo của ai đón bấm vào nút Quan tâm của Official Account do bên em tạo trước là sẽ nhận được tin nhắn mỗi khi phần mềm gửi đến.
Em không có kiến thức về lập trình và cũng không có mã nguồn của phần mềm trên.
Không biết tại diễn đàn này có ai có thể dùng VBA để gửi được tin nhắn qua Zalo không ạ ? Nếu đã làm được rất mong được chia sẻ.

Xin chân thành cảm ơn

Xem thêm: https://developers.zalo.me

 

[Hoàng Trọng Nghĩa]

Gửi Anh Nghĩa,
Anh Nghĩa thử thay code ở bước 2 bằng code bên dưới rồi chạy thử xem sao, em chạy thử thì thấy tin nhắn gửi đi được. Tuy nhiên, Em chưa thử dùng cách này để gửi tin nhắn hàng loạt nên cũng chưa rõ cách này có hiệu quả không.


Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String

strZaloID = "nhập số điện thoại người nhận"
strMessage = "nhập nội dung tin nhắn"

Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing

Application.Wait Now() + TimeSerial(0, 0, 1.3)

SendKeys "^f"
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"

'Đưa nội dung tin nhắn vào clipboard và gửi đi
Clipboard strMessage
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "~"

End Sub

Nếu chuyển hình ảnh vào thì tuyệt vời em nhỉ? VD mình copy một bảng nhỏ từ Excel vào Zalo chẳng hạn (phiếu lương).
Việc gửi hàng loạt chỉ cần vòng lặp duyệt từng số điện thoại cũng sẽ tạm ổn.

 

[goodlife1605]

Nếu chuyển hình ảnh vào thì tuyệt vời em nhỉ? VD mình copy một bảng nhỏ từ Excel vào Zalo chẳng hạn (phiếu lương).
Việc gửi hàng loạt chỉ cần vòng lặp duyệt từng số điện thoại cũng sẽ tạm ổn.

View attachment 273651

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

 

[Hoàng Trọng Nghĩa]

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

Cám ơn bạn đã rất nhiệt tình, tôi đã thử và đã gửi được, nhưng hơi chậm có lẽ là do Application.Wait nếu không có nó thì code lại không thực thi đầy đủ.

 

[goodlife1605]

Cám ơn bạn đã rất nhiệt tình, tôi đã thử và đã gửi được, nhưng hơi chậm có lẽ là do Application.Wait nếu không có nó thì code lại không thực thi đầy đủ.

Dạ không có gì Anh ạ, em mới võ vẽ VBA mà giúp được mọi người là vui rồi. Vẫn mong được học hỏi từ các Anh Chị Em nhiều hơn Anh ạ.

 

[Hoàng Tuấn 868]

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

Bạn cho mình hỏi một chút, có thể gửi các thông tin này từ số Zalo của mình cho chính số Zalo của mình không nhỉ. Xin cảm ơn bạn.

 

[goodlife1605]

Bạn cho mình hỏi một chút, có thể gửi các thông tin này từ số Zalo của mình cho chính số Zalo của mình không nhỉ. Xin cảm ơn bạn.

Chào bạn,

Mình nghĩ chắc là bạn muốn hỏi là mình tự gửi tin nhắn gì đó lên cửa sổ chat "Cloud của tôi" của Zalo nhằm mục đích lưu trữ tin nhắn. Nếu là vậy thì bạn thử gán biến strZaloID = "Cloud" rồi chạy đoạn code phía trên, mình nghĩ là được nếu trong danh bạ của bạn không còn ai có tên bắt đầu bằng chữ "Cloud" (nếu có thì xử lý cũng đơn giản).

Còn trường hợp gán biến strZaloID bằng số điện thoại của chính mình thì mình chưa làm được vì mình không biết Zalo có hỗ trợ trường hợp này không. Hiện tại mình chỉ biết duy nhất một app là Whatspp là có tính năng tự gửi tin nhắn vào số điện thoại chính mình này.

 

[Hoàng Tuấn 868]

Chào bạn,

Mình nghĩ chắc là bạn muốn hỏi là mình tự gửi tin nhắn gì đó lên cửa sổ chat "Cloud của tôi" của Zalo nhằm mục đích lưu trữ tin nhắn. Nếu là vậy thì bạn thử gán biến strZaloID = "Cloud" rồi chạy đoạn code phía trên, mình nghĩ là được nếu trong danh bạ của bạn không còn ai có tên bắt đầu bằng chữ "Cloud" (nếu có thì xử lý cũng đơn giản).

Còn trường hợp gán biến strZaloID bằng số điện thoại của chính mình thì mình chưa làm được vì mình không biết Zalo có hỗ trợ trường hợp này không. Hiện tại mình chỉ biết duy nhất một app là Whatspp là có tính năng tự gửi tin nhắn vào số điện thoại chính mình này.

Cảm ơn bạn, mình dùng trên máy tính để tự động gửi đi cho các số Zalo khác thì được, nhưng muốn gửi cho chính số của mình để thông tin gửi về xuất hiện trên điện thoại của mình thì báo lỗi.
Để mình thử theo cách của bạn hướng dẫn trên đây xem thế nào. Một lần nữa xin cảm ơn về những chia sẻ rất hữu ích của bạn.

 

[khactien111]

Cảm ơn bạn, mình dùng trên máy tính để tự động gửi đi cho các số Zalo khác thì được, nhưng muốn gửi cho chính số của mình để thông tin gửi về xuất hiện trên điện thoại của mình thì báo lỗi.
Để mình thử theo cách của bạn hướng dẫn trên đây xem thế nào. Một lần nữa xin cảm ơn về những chia sẻ rất hữu ích của bạn.

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

hi @goodlife1605 . mình có dùng thử đoạn code của bạn như ở trên. ở lệnh strzaloID = "Số điện thoại người nhận" thì mặc định code sẽ gửi nội dung đó vào cửa số zalo mình đang làm việc. bạn giúp mình với. mình cảm ơn

 

[befaint]

thử đoạn code của bạn như ở trên. ở lệnh strzaloID = "Số điện thoại người nhận" thì mặc định code sẽ gửi nội dung đó vào cửa số zalo mình đang làm việc

Bạn cần kiểm tra số điện thoại đã đăng ký Zalo chưa, hoặc đã đăng ký rồi mà họ thiết lập không cho phép tìm kiếm.
Tìm thành công rồi mới tiến hành thao tác gửi. Mà lệnh sendkey thì dễ lỗi/ trượt khi chạy hàng loạt.
Lên mạng tìm "gửi hàng loạt tin nhắn, hình ảnh tới zalo bằng vba" là thấy.

 

[cuongbv2103]

Dạ không có gì Anh ạ, em mới võ vẽ VBA mà giúp được mọi người là vui rồi. Vẫn mong được học hỏi từ các Anh Chị Em nhiều hơn Anh ạ.

giờ muốn thay đổi , ví dụ như mã nhân tương úng với sdt thì làm thế nào bác ?

 

[hoanghuu2910]

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

bạn có thể cho mình xin file mẫu được không ạ, mình hông rành vba lắm, xin chân thành cảm ơn.

 

[appl]

Anh Nghĩa thử lại đoạn code bên dưới xem sao. Thử 1 2 lần thì thấy tạm được (hơi chậm), không biết có lỗi gì không Anh ạ.

Sub ShowZalo()

Dim IE As Object
Dim strZaloID As String
Dim strMessage As String
Dim PhotoMessage As Range

strZaloID = "nhập số điện thoại người nhận"
strMessage = "Vui long xem Phieu luong thang 3 nam 2022 cua ban nhu tren"


Set IE = CreateObject("Shell.Application")
IE.ShellExecute "zalo:"
Set IE = Nothing
Application.Wait Now() + TimeSerial(0, 0, 1.3)


'Mở ID Zalo của người nhận bằng số điện thoại
Clipboard strZaloID 'dùng Funtion tự tạo ở bước 1 để đưa số điện thoại người nhận vào clipboard
SendKeys "^f"
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^f"
SendKeys "~"
Application.Wait Now() + TimeSerial(0, 0, 1)


'Chuyển nội dung của range cần gửi thành hình ảnh và đưa vào khung chat Zalo
Set PhotoMessage = Sheet1.Range("A1:B2")
PhotoMessage.CopyPicture xlScreen, xlBitmap
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 0.5)


''Đưa nội dung tin nhắn dạng text vào clipboard
Clipboard strMessage 'dùng Funtion tự tạo ở bước 1 để đưa nội dung tin nhắn vào clipboard
Application.Wait Now() + TimeSerial(0, 0, 1)
SendKeys "^v"
Application.Wait Now() + TimeSerial(0, 0, 1)

'Gửi đi cùng lúc hình ảnh và nội dung tin nhắn dạng text
SendKeys "~"

Clipboard ""

End Sub

chào anh, nhờ anh hướng dẫn dùm, code tôi cũng là theo sự chỉ dẫn của anh mà không biết sai chỗ nào? nó không tự gởi tin nhắn được, nhờ anh xem dùm, cảm ơn anh nhiều

 

[goodlife1605]

chào anh, nhờ anh hướng dẫn dùm, code tôi cũng là theo sự chỉ dẫn của anh mà không biết sai chỗ nào? nó không tự gởi tin nhắn được, nhờ anh xem dùm, cảm ơn anh nhiều

Chào bạn @hoanghuu2910,

Bạn tham file của bạn Appl nhé.



Chào bạn @appl,

Tôi chạy code trong file bạn gửi thì vẫn gửi được tinh nhắn bạn nhé.

Bạn cần lưu ý:
- Cẩn thận khi chạy code gửi tin nhắn hàng loạt vì lệnh sendkeys có thể gây lỗi khi chạy vòng lặp để gửi tin nhắn hàng loạt.
- Khi code đang chạy thì bạn không được thao tác gì thêm trên máy tính cho đến khi code chạy xong.

Khi đã làm vậy mà vẫn không chạy code được thì bạn thử điều chỉnh tuần tự từng dòng lệnh Application.Wait trong code. Cụ thể là bạn chọn một dòng lệnh Application.Wait cụ thể nào đó rồi đổi tham số thời gian (gợi ý tăng giảm từng 0.5s) trong khi vẫn cố định các dòng Application.Wait còn lại để xem "mức độ tương thích" của code với máy tính của bạn như nào.

Bạn hình dung lệnh Sendkeys ra lệnh cho ứng dụng đang mở (ở đây là zalo) thực hiện một thao tác nào đó, tuy nhiên ứng dụng đó cần một khoảng thời gian để hoàn thành thao tác đó, nhanh hay chậm lại có thể do do máy tính của bạn mạnh hay yếu quyết định. Do đó cần đặt thêm lệnh Applications.Wait để bắt buộc code phải chờ một khoảng thời gian trước khi thực hiện dòng lệnh tiếp theo để ứng dụng có đủ thời gian hoàn thành thao tác trước đó. Việc của bạn là tìm ra khoảng thời gian chờ đó là bao nhiêu thì phù hợp với máy tính của bạn.

Tôi viết đoạn code này cũng với kiến thức ít ỏi về VBA và cũng phải thay đổi tham số thời gian nhiều lần cho đến khi code hoàn chỉnh cho máy tính của tôi.

Đây chỉ là biện pháp tạm thời nhằm mục đích "đối phó" chứ không phải là đoạn code hoàn hảo nên bạn chịu khó tinh chỉnh lại cho phù hợp với máy tính của bạn vậy.

 

[Duong gia]

Chào bạn @hoanghuu2910,

Bạn tham file của bạn Appl nhé.



Chào bạn @appl,

Tôi chạy code trong file bạn gửi thì vẫn gửi được tinh nhắn bạn nhé.

Bạn cần lưu ý:
- Cẩn thận khi chạy code gửi tin nhắn hàng loạt vì lệnh sendkeys có thể gây lỗi khi chạy vòng lặp để gửi tin nhắn hàng loạt.
- Khi code đang chạy thì bạn không được thao tác gì thêm trên máy tính cho đến khi code chạy xong.

Khi đã làm vậy mà vẫn không chạy code được thì bạn thử điều chỉnh tuần tự từng dòng lệnh Application.Wait trong code. Cụ thể là bạn chọn một dòng lệnh Application.Wait cụ thể nào đó rồi đổi tham số thời gian (gợi ý tăng giảm từng 0.5s) trong khi vẫn cố định các dòng Application.Wait còn lại để xem "mức độ tương thích" của code với máy tính của bạn như nào.

Bạn hình dung lệnh Sendkeys ra lệnh cho ứng dụng đang mở (ở đây là zalo) thực hiện một thao tác nào đó, tuy nhiên ứng dụng đó cần một khoảng thời gian để hoàn thành thao tác đó, nhanh hay chậm lại có thể do do máy tính của bạn mạnh hay yếu quyết định. Do đó cần đặt thêm lệnh Applications.Wait để bắt buộc code phải chờ một khoảng thời gian trước khi thực hiện dòng lệnh tiếp theo để ứng dụng có đủ thời gian hoàn thành thao tác trước đó. Việc của bạn là tìm ra khoảng thời gian chờ đó là bao nhiêu thì phù hợp với máy tính của bạn.

Tôi viết đoạn code này cũng với kiến thức ít ỏi về VBA và cũng phải thay đổi tham số thời gian nhiều lần cho đến khi code hoàn chỉnh cho máy tính của tôi.

Đây chỉ là biện pháp tạm thời nhằm mục đích "đối phó" chứ không phải là đoạn code hoàn hảo nên bạn chịu khó tinh chỉnh lại cho phù hợp với máy tính của bạn vậy.

@goodlife1605​

cho mình hỏi chỗ strZaloID = "09 xxx" mình muốn gửi theo danh sách 5 hoặc 10 người thì sao, chỗ strZaloID này sửa ntn? Sao mình không thấy vòng lặp nhỉ ? Cám ơn bài viết rất hay !

 

[befaint]

Lên mạng tìm Post2ZaloPro nhé.
Ấn nút lèo cái gửi xong cả loạt. Gửi theo số điện thoại, theo tên tài khoản, tên nhóm... đều được hết.

 

[Duong gia]

Lên mạng tìm Post2ZaloPro nhé.
Ấn nút lèo cái gửi xong cả loạt. Gửi theo số điện thoại, theo tên tài khoản, tên nhóm... đều được hết.

Mình không thích Post2zaloPro, cái của @goodlife1605 khá hay

Post2ZaloPro

​

 

[befaint]

Mình không thích Post2zaloPro, cái của @goodlife1605 khá hay

Sendkey thì hay sao được bạn?
Gặp số điện thoại người ta không cho phép tìm kiếm, không cho gửi tin nhắn, hoặc không đăng ký Zalo thì lăn ra ngỏm.

 

[Duong gia]

Sendkey thì hay sao được bạn?
Gặp số điện thoại người ta không cho phép tìm kiếm, không cho gửi tin nhắn, hoặc không đăng ký Zalo thì lăn ra ngỏm.

Vì mình thấy nó thích cho cv hằng ngày của mình chỉ đơn giản gửi cho 5 nhân viên, họ có zalo để thực hiện cv. Mình thử gửi đến 1 người thì ok, còn những người khác thì sao? Có cách nào chỉ cần click chuột nó tự động gửi hết cho 5 người không? Cám ơn !

 

[befaint]

Có cách nào chỉ cần click chuột nó tự động gửi hết cho 5 người không?

Có chứ bạn. Bài trên nói rồi mà.

 

[HeSanbi]

Các bạn tìm hiểu thêm ZaloExcel miễn phí 100% sử dụng, dễ sử dụng, nhiều chức năng, thêm bạn tự động, tạo nhóm tự động

ZaloExcel v2.94: Gửi tin nhắn, hình ảnh, bảng, biểu đồ, tập tin, tạo nhóm, thu thập tin nhắn

Bài viết này sẽ chia sẻ cho các bạn Ứng dụng điều khiển Zalo gửi tin nhắn, tin nhắn định dạng, hình ảnh, hình ảnh vùng ô, hình ảnh biểu đồ, đính kèm tập tin và dữ liệu trong bộ nhớ tạm từ ứng dụng Excel cho bất kì một người bạn của bạn hoặc một số điện thoại đã đăng ký Zalo và cũng có thể lưu dữ...

www.giaiphapexcel.com