আমি এক্সেলের সাথে কাজ করছি কিছু ইমেল প্রেরণকে স্বয়ংক্রিয় করার চেষ্টা করছি। এই মুহুর্তে, কোডটি ক্লিক করা বোতামের পাশের কক্ষের উপর ভিত্তি করে একটি ইমেল তৈরি করে, ইমেলটি কোনও ঘরে তালিকাভুক্ত করাতে ফরোয়ার্ড করে এবং তারপরে আরও কয়েকটি কোষের উপর ভিত্তি করে একটি নির্দিষ্ট বডি বার্তা সন্নিবেশ করে। কোষগুলিতে যা আছে তা সত্যিই গুরুত্বপূর্ণ নয়, তবে আমার যা করা দরকার তা হল নির্দিষ্ট পাঠ্যের জন্য মূল ফরোয়ার্ড বার্তাটি অনুসন্ধান করা এবং যদি খুঁজে পাওয়া যায়, তবে সেই পাঠ্যটি হাইলাইট করা দরকার।
আমার কোডটি নিম্নরূপ:
Sub Asset_email()
Dim olApp As Outlook.Application
Dim olNs As Namespace
Dim Fldr As MAPIFolder
Dim olMail As Outlook.MailItem
Dim i As Integer
Dim olMsg As Outlook.MailItem
Dim r As Range
Dim strLocation As String
Dim o As Outlook.Application
Dim strbody As String
'Dim olAtt As Outlook.Attachments
'Set olAtt = olMsg.Attachments
Set r = ActiveSheet.Buttons(Application.Caller).TopLeftCell
Range(Cells(r.Row, r.Column), Cells(r.Row, r.Column)).Select
Set olApp = New Outlook.Application
Set olNs = olApp.GetNamespace("MAPI")
Set Fldr = olNs.GetDefaultFolder(olFolderInbox).Folders("Asset Notifications Macro")
i = 1
For Each olMail In Fldr.Items
If InStr(olMail.body, ActiveCell.Offset(rowOffset:=0, ColumnOffset:=-3).Value) <> 0 Then
olMail.display
strbody = "<BODY style=font-size:11pt;font-family:Calibri>Team,<br><br>" & _
"Please see the notice below regarding " & _
ActiveCell.Offset(rowOffset:=0, ColumnOffset:=-2).Value & _
".<br><br> Feel free to email the CSG team at myemailhere@email.com with any questions.<br><br>" & _
"Thank you!"
With olMail.Forward
.To = ActiveCell.Offset(ColumnOffset:=-1)
.display
SendKeys ("%")
SendKeys ("7")
'Call Sleep
Application.Wait (Now + TimeValue("0:00:03"))
.HTMLBody = strbody & "<br>" & .HTMLBody
End With
End If
Next
End Subকোডটি 100% কাজ করে। ফলাফলগুলি অনুসন্ধান এবং হাইলাইট করার জন্য আমি ঠিক সঠিক বাক্য গঠন জানি না।
উপরের উদাহরণে, আমি বলতে পারি যে আমি "ধন্যবাদ" শব্দগুলি খুঁজে পেতে এবং হাইলাইট করতে চেয়েছিলাম। কিভাবে এই সম্পর্কে যেতে হবে?