Vợ em làm ra hàng loạt địa chỉ mail (Gmail) cho Bác Sĩ ở các bệnh viện để dùng làm liên lạc vì công ty bắt chỉ tiêu là phải lấy dc mail của BSĩ và dùng mail này gởi các thông báo liên lạc mời hội nghị hội ngh ị...vv.... nhưng mà web của công ty khi gởi mail, nếu người nhận có MỞ mail lên thì nó sẽ feedback về cty, còn không mở mail thì qua một thời gian cty sẽ báo cho vợ mấy ổng chưa mở mail... gần cả trăm cái địa chỉ mail luôn ạ!
Dạ, em vào web mail trực tiếp, không mở mail ra và chỉ đánh dấu đã đọc nhưng mà không được anh ơi, bên server cty vẫn báo là chưa mở mail, nên em mới nghĩ thử là mình down về thì ra sao ?
dạ e đã kiểm tra kỹ rùi...
Sub OpenAllUnreadEmails()
Dim objFolders As Outlook.Folders
Dim objFolder As Outlook.Folder
Dim lUnreadMailCount As Long
lUnreadMailCount = 0
'Change "John Smith" to the name of your own Outlook file
Set objFolders = Outlook.Application.Session.Folders("John Smith").Folders
For Each objFolder In objFolders
Call ProcessFolders(objFolder, lUnreadMailCount)
Next
MsgBox "Open " & lUnreadMailCount & " unread emails successfully!", vbExclamation + vbOKOnly, "Batch Open Unread Mails"
End Sub
Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, lCurUnreadEmailCount As Long)
Dim objItem As Object
Dim objMail As Outlook.MailItem
Dim objSubfolder As Outlook.Folder
'Display Unread Emails only
If objCurrentFolder.DefaultItemType = olMailItem Then
For Each objItem In objCurrentFolder.Items
If TypeOf objItem Is MailItem Then
Set objMail = objItem
If objMail.UnRead = True Then
objMail.Display
lCurUnreadEmailCount = lCurUnreadEmailCount + 1
End If
End If
Next
End If
If objCurrentFolder.Folders.Count > 0 Then
For Each objSubfolder In objCurrentFolder.Folders
Call ProcessFolders(objSubfolder, lCurUnreadEmailCount)
Next
End If
End Subnếu được bạn thử "đề mô" cho mình nghiên cứu với!!!
dạ... vậy em botay.comMột dòng crontab là hết bấm nút thôi mà
PHP:*/5 * * * * sudo python3 /home/ubuntu/gmail/mark_read.py
View attachment 242260
Thớt nói đây chỉ là thủ tục.
Cái này không phải là chính sách cty ở VN mà là chính sách cty mẹ bên Mẽo lận!
Họ vẫn đánh giá hiệu quả chứ không phải gửi mail là xong.cái này là chơi chiêu chứ thủ tục gì bác..
