পপ-আপ বক্স দেওয়ার জন্য আমি কি একটি আউটলুক 2010 ম্যাক্রো তৈরি করতে পারি?

Question

আমি কোন ইমেল অ্যাকাউন্ট থেকে ইমেল প্রেরণ করব তা চয়ন করার জন্য একটি পপ আপ বাক্স দেওয়ার জন্য আমি একটি ম্যাক্রো সেট আপ করার চেষ্টা করছি। আমি এখানে আসলে ম্যাক্রোগুলি পেয়েছি যা এটি করে তবে কাজের সময় বেশ কয়েকটি চেষ্টার পরে আমি যা পাই তা আমার সরঞ্জামদণ্ডের একটি বোতাম যা কিছুই করে না!

কেউ কি আমাকে করণীয় সম্পর্কে বিশদ বর্ণনা দিতে পারেন?

আমি যে ম্যাক্রোর চেষ্টা করেছি তা এখানে -

Sub SendfromLE()
Dim oAccount As Outlook.Account
Dim oMail As Outlook.MailItem

For Each oAccount In Application.Session.Accounts
   If oAccount = "LeadEmployerRecruitment" Then
      Set oMail = Application.CreateItem(olMailItem)
      oMail.SendUsingAccount = oAccount
      oMail.Display
   End If
Next
End Sub

আমি নিশ্চিত না যে আমি অ্যাকাউন্টটির নামকরণটি সঠিকভাবে করেছি কিনা? এটির পুরো ইমেল ঠিকানা বা কেবল নাম থাকা দরকার?

Comments

আমি এই জিনিসটি পেরিয়েছি বছর পেরিয়ে গেছে, তবে আপনি স্লিপস্টিক - ডায়ান পোরেমস্কি, সু মোশার এবং Out আউটলুক / এক্সচেঞ্জ গুরুদের কাছেও জিজ্ঞাসা করতে পারেন। slipstick.com/discuss.htm#.T99kzbVYs8o

— সিএসফাস

Answer 1

এটা চেষ্টা কর

For Each oAccount In Application.Session.Accounts

Debug.Print oAccount
If oAccount = "Whatever you see in the immediate pane" Then
    Set oMail = Application.CreateItem(olMailItem)
    oMail.SendUsingAccount = oAccount
    oMail.Display
End If
Next