Kiểm tra domain email người gửi khi có mail mới bằng VBA (2 người xem)

[hadoan-pap]

Em chào mọi người.

Dạ em muốn nhúng đoạn code VBA trong outlook để nó tự động kiểm tra lấy được domain email của người gửi ạ.

E tìm cũng khá nhiều nhưng chưa được đúng ý ạ. Có đoạn code Như bên dưới nhưng nó không lấy được chính xác domain email , mà nó chỉ lấy được thông tin Như trong ảnh thôi ạ.

Rất mong được sự giúp đỡ của mọi người ạ.

Em Xin cảm ơn!

Code của em:

Option Explicit

Private WithEvents inboxItems As Outlook.Items




Private Sub Application_Startup()

  Dim outlookApp As Outlook.Application

  Dim objectNS As Outlook.NameSpace

 

  Set outlookApp = Outlook.Application

  Set objectNS = outlookApp.GetNamespace("MAPI")

  Set inboxItems = objectNS.GetDefaultFolder(olFolderInbox).Items

End Sub




Private Sub inboxItems_ItemAdd(ByVal Item As Object)

On Error GoTo ErrorHandler

Dim Msg As Outlook.MailItem

Dim MessageInfo

Dim Result

If TypeName(Item) = "MailItem" Then

    MessageInfo = "" & _

        "Sender : " & Item.SenderEmailAddress & vbCrLf & _

        "Sent : " & Item.SentOn & vbCrLf & _

        "Received : " & Item.ReceivedTime & vbCrLf & _

        "Subject : " & Item.Subject & vbCrLf & _

        "Size : " & Item.Size & vbCrLf & _

        "Message Body : " & vbCrLf & Item.Body

    

    MsgBox Item.SenderEmailAddress

    Result = MsgBox(Item.SenderEmailAddress, MessageInfo, vbOKOnly, "New Message Received")

 

End If

ExitNewItem:

    Exit Sub

ErrorHandler:

    'MsgBox Item.SenderEmailAddress

    Resume ExitNewItem

 

End Sub

 

[Hoàng Tuấn 868]

Lại mắc cái tội không cho code vào trong thẻ rồi.

 

[hadoan-pap]

Lại mắc cái tội không cho code vào trong thẻ.

Dạ em mới sửa ạ!