hadoan-pap
Thành viên tiêu biểu
- Tham gia
- 8/7/15
- Bài viết
- 460
- Được thích
- 19
Em chào mọi người!
Em có 1 bài toán liên quan đến Macro trên Outlook 2016... mục đích là sau khi soạn email và ấn Send, outlook sẽ tự động kiểm tra các địa chỉ gửi đi, nếu bắt được đúng điều kiện của mình thì ngay lập tức nó sẽ Forward chính email đó đến 1 địa chỉ khác.
Em có tìm 1 đoạn code chạy trực tiếp trong Outlook như bên dưới… nhưng nó đang sai và chưa chạy đc đúng như mong muốn.
Mong mọi người hỗ trợ ạ.
Em cảm ơn rất nhiều.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim pa As Outlook.PropertyAccessor
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Dim myFwd1 As Outlook.MailItem
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
Set recips = Item.Recipients
For Each recip In recips
Set pa = recip.PropertyAccessor
''If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@gmail.com") = 0 And Item.Attachments.Count <> 0 Then
If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@gmail.com") = 0 Then
''If MsgBox("Send mail to external domain?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
''Cancel = True
''Exit Sub
''Else
Set myFwd = Item.Forward
myFwd.Subject = "Warning from system"
myFwd.To = "example@xxxx"
myFwd.Body = "Your Staff was sent email to other"
myFwd.DeleteAfterSubmit = True
myFwd.Send
Set myFwd = Nothing
''End If
Else
Exit Sub
End If
Next
End Sub
Em có 1 bài toán liên quan đến Macro trên Outlook 2016... mục đích là sau khi soạn email và ấn Send, outlook sẽ tự động kiểm tra các địa chỉ gửi đi, nếu bắt được đúng điều kiện của mình thì ngay lập tức nó sẽ Forward chính email đó đến 1 địa chỉ khác.
Em có tìm 1 đoạn code chạy trực tiếp trong Outlook như bên dưới… nhưng nó đang sai và chưa chạy đc đúng như mong muốn.
Mong mọi người hỗ trợ ạ.
Em cảm ơn rất nhiều.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim recips As Outlook.Recipients
Dim recip As Outlook.Recipient
Dim pa As Outlook.PropertyAccessor
Dim strMsg As String
Dim myFwd As Outlook.MailItem
Dim myFwd1 As Outlook.MailItem
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
Set recips = Item.Recipients
For Each recip In recips
Set pa = recip.PropertyAccessor
''If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@gmail.com") = 0 And Item.Attachments.Count <> 0 Then
If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@gmail.com") = 0 Then
''If MsgBox("Send mail to external domain?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then
''Cancel = True
''Exit Sub
''Else
Set myFwd = Item.Forward
myFwd.Subject = "Warning from system"
myFwd.To = "example@xxxx"
myFwd.Body = "Your Staff was sent email to other"
myFwd.DeleteAfterSubmit = True
myFwd.Send
Set myFwd = Nothing
''End If
Else
Exit Sub
End If
Next
End Sub
