আমি ভিবিএ জানি না, তবে পাওয়ারশেলে স্ক্রিপ্টটি দেখতে এরকম হবে (লক্ষ্য করুন এটি ভিবিএ ক্লাস ব্যবহার করছে):
#Create Outlook Application object
$ol = New-Object -comObject Outlook.Application
# Create the new email
$mail = $ol.CreateItem(0) # 0 is the value of OlItemType.olMailItem
# Set the subject
$mail.Subject = "Formatting test"
# Set body format to HTML
$mail.BodyFormat = 2 # 2 is the value of OlBodyFormat.olFormatHTML
# Set the body
$mail.HTMLBody = "<html><body><p>Test</p></body></html>"
# Bring the message window to the front
$mail.Display()
আশা করি এটা কাজে লাগবে.
সম্পাদনা করুন: আমি আমার আউটলুকে বিকাশকারী সরঞ্জামগুলি সক্ষম করেছি এবং ডকুমেন্টেশন থেকে উদাহরণগুলি ব্যবহার করে আমি আমার পাওয়ারশেল কোডটি ভিবিএ সাবরোটিনে রূপান্তর করেছি:
Sub MakeMessage()
Dim OutlookMessage As Outlook.MailItem
Set OutlookMessage = Application.CreateItem(olMailItem)
OutlookMessage.Subject = "Hello World!"
OutlookMessage.BodyFormat = olFormatHTML
OutlookMessage.HTMLBody = "<html><body><p>Test</p></body></html>"
OutlookMessage.Display
End Sub
যদিও আমি এখনও এটি স্ক্রিপ্ট হিসাবে চালাতে জানি না।
সম্পাদনা: ঠিক আছে, তাই ইমেলটি খোলার সময় সম্পাদনা করতে ইভেন্টগুলি এভাবেই ব্যবহার করতে হবে:
Dim WithEvents m_objMail As Outlook.mailItem
Private Sub Application_ItemLoad(ByVal Item As Object)
Select Case Item.Class
Case olMail
Set m_objMail = Item
End Select
End Sub
Private Sub m_objMail_Open(Cancel As Boolean)
If m_objMail.Subject = "Hello World!" Then
m_objMail.BodyFormat = olFormatPlain
m_objMail.HTMLBody = "<html><body><p>Body: " + m_objMail.body + " </p></body></html>"
End If
End Sub
m_objMail_Open
আপনার হোটেল সফ্টওয়্যার দ্বারা উত্পন্ন ইমেল এবং আপনার পছন্দসই আউটপুট ফিট করার জন্য উত্পন্ন এইচটিএমএলবিডি থেকে যা কিছু ফিট করে তা সাব্রোটিনে শর্ত পরিবর্তন করতে হবে।
এছাড়াও, দয়া করে নোট করুন যে মেল আইটেম.আপনি যখনই কোনও নতুন উইন্ডোতে ইমেল খোলা হয় তখনই উত্থাপিত ইভেন্টটি উত্থাপিত হয়, সুতরাং আপনার বিদ্যমান ইমেলের পরিবর্তে আপনি নতুন ইমেলের সাথে লেনদেন করছেন কিনা তা খতিয়ে দেখতে হবে (সুতরাং আমি Not m_objMail.Sent And Not m_objMail.Saved
প্রেরিত এবং প্রাপ্ত ইমেলগুলি অপসারণের অনুমান করি , তবে আপনার এটি পরীক্ষা করা দরকার)।