নামের পরিবর্তে ইমেল আইডি পুনরুদ্ধার করুন

কোডিংয়ের নীচে .msgফাইলগুলি থেকে সমস্ত তথ্য পুনরুদ্ধার করে। তবে, যখন এটি প্রেরকের ইমেল আইডিটি পুনরুদ্ধার করে এবং প্রাপ্ত হয়, এটি ইমেল আইডির পরিবর্তে নামটি প্রতিফলিত করে। দয়া করে আমাকে সহায়তা করুন এবং নামের পরিবর্তে ইমেল আইডি প্রদর্শনের জন্য কী কী পরিবর্তন প্রয়োজন তা পরামর্শ দিন।

Dim MyOutlook As Outlook.Application

Dim Msg As Outlook.MailItem
Dim x As Namespace
Dim Row As Integer
Dim Path As String
Set MyOutlook = New Outlook.Application
Set x = MyOutlook.GetNamespace("MAPI")
Path = "C:\Users\USERNAME\Desktop\My working\Macro\New folder\Ilearn - Grp 1\"

FileList = GetFileList(Path + "*.msg")
Row = 1

While Row <= UBound(FileList)

    Set Msg = x.OpenSharedItem(Path + FileList(Row))

    Sheet2.Cells(Row + 1, 1) = Msg.Subject
    Sheet2.Cells(Row + 1, 2) = Msg.Sender
    Sheet2.Cells(Row + 1, 3) = Msg.CC
    Sheet2.Cells(Row + 1, 4) = Msg.To
    Sheet2.Cells(Row + 1, 5) = Msg.SentOn
    Row = Row + 1
Wend

microsoft-outlook vba

— Gaus
সূত্র

না @ ডেভ, পোস্ট ফর্ম্যাটিং সমস্যাগুলি ...

— ডেভিড 'এমআরএম' আনসারমোট

আপনার সংস্করণ উপর নির্ভর করে stackoverflow.com/questions/7710191/...

— Raystafarian