HomeOutlook Redemption

Cách sử dụng Outlook Redemption qua các ví dụ thực tế

0

Sử dụng Redemption thay cho Outlook Object Model chuẩn

Phần mềm Outlook Redemption
Tính năng mới nhất trong Outlook Redemption
Outlook Redemption

Outlook Redemption

Vi dụ dưới đây là cách sử dụng thư viện Outlook Redemption qua các ví dụ thực tế, từ dễ → nâng cao, để bạn thấy vì sao người ta dùng Redemption thay cho Outlook Object Model chuẩn.

1️⃣ Trường hợp phổ biến nhất:

❌ Outlook báo cảnh báo bảo mật khi đọc email (Security Prompt)

Ví dụ: khi code đọc SenderEmailAddress, Body, Recipients → Outlook hiện popup:

“A program is trying to access email addresses you have stored in Outlook…”

👉 Redemption giải quyết triệt để việc này.

2️⃣ Ví dụ 1 – VBA: Đọc thông tin email KHÔNG bị popup

🔹 Trước tiên: Add thư viện Redemption

  1. Mở VBA Editor (Alt + F11)

  2. Tools → References

  3. Tick Redemption Outlook Library

🔹 Code VBA: Đọc email đang được chọn

Sub ReadMailWithRedemption()

Dim olApp As Outlook.Application
Dim sel As Outlook.Selection
Dim mail As Outlook.MailItem

Dim rMail As Redemption.SafeMailItem

Set olApp = Outlook.Application
Set sel = olApp.ActiveExplorer.Selection

If sel.Count = 0 Then Exit Sub

Set mail = sel.Item(1)

Set rMail = New Redemption.SafeMailItem
Set rMail.Item = mail

MsgBox _
“From: “ & rMail.SenderEmailAddress & vbCrLf & _
“Subject: “ & rMail.Subject & vbCrLf & _
“Body: “ & Left(rMail.Body, 200)

End Sub

✅ Không popup bảo mật
✅ Đọc được email nội bộ Exchange + Internet email

3️⃣ Ví dụ 2 – C# (.NET): Đọc mailbox Exchange bằng RDO

🔹 Add reference

  • Add reference Redemption.dll

  • Namespace: Redemption

🔹 Code C# – Duyệt Inbox

using Redemption;

class Program
{
static void Main()
{
RDOSession session = new RDOSession();
session.Logon(); // dùng profile Outlook hiện tại

RDOFolder inbox = session.GetDefaultFolder(rdoDefaultFolders.olFolderInbox);

foreach (RDOMail mail in inbox.Items)
{
Console.WriteLine(“From: “ + mail.SenderEmailAddress);
Console.WriteLine(“Subject: “ + mail.Subject);
Console.WriteLine(“——————-“);
}

session.Logoff();
}
}

✅ Không cần Outlook hiển thị
✅ Không Security Prompt
✅ Truy cập sâu MAPI (Exchange / PST)

4️⃣ Ví dụ 3 – Xuất email ra file EML / MSG

Sub ExportMailToEML()

Dim rMail As New Redemption.SafeMailItem
rMail.Item = Application.ActiveExplorer.Selection(1)

rMail.SaveAs “C:\Temp\mail.eml”, 1024 ‘ 1024 = EML

End Sub

👉 Outlook Object Model không làm được việc này chuẩn

5️⃣ Khi nào CHẮC CHẮN nên dùng Outlook Redemption?

Nhu cầu Outlook chuẩn Redemption
Đọc email không popup ❌ ✅
Lấy Internet Headers ❌ ✅
Truy cập Exchange sâu ❌ ✅
Xuất MSG / EML ⚠️ hạn chế ✅
Chạy service / background ❌ ✅

6️⃣ Lưu ý quan trọng về License Outlook Redemption

  • ✔ Dùng nội bộ / cá nhân / test → OK

  • ⚠ Phần mềm thương mại → bắt buộc mua license

  • License theo developer, không theo user

RECOMMENDED FOR YOU

Loading...
Newer Post
Older Post

COMMENTS

WORDPRESS: 0

Leave a Reply

Your email address will not be published. Required fields are marked *

DISQUS:
Contact Me on Zalo