मुझे एक्सेल स्प्रेडशीट में सूचीबद्ध उपयोगकर्ताओं को ईमेल भेजने का काम मिला था। प्रत्येक ईमेल में प्रत्येक उपयोगकर्ता के लिए कुछ जानकारी अलग-अलग होनी चाहिए। मैंने एक्सेल में वीबीए मैक्रो का उपयोग करके ऐसा करने की कोशिश की जिसने कंप्यूटर पर कॉन्फ़िगर किए गए आउटलुक प्रोफाइल से ईमेल भेजे। यहाँ मेरा समाधान है।
मान लीजिए, आपके पास निम्नलिखित कॉलम वाली एक एक्सेल फाइल है:
Email | Full Name | Last Password Change Date | Account status
मेरा काम इस टेम्पलेट से सूची में प्रत्येक उपयोगकर्ता को ऐसा ई-मेल भेजना है:
विषय :woshub.com डोमेन पर आपके खाते की स्थितिशरीर :प्रिय %FullUsername%,
woshub.com डोमेन में आपका खाता %status% स्थिति में है
अंतिम पासवर्ड परिवर्तन की तिथि और समय %pwdchange% है
एक नया मैक्रो बनाएं:देखें -> मैक्रोज़ . मैक्रो का नाम निर्दिष्ट करें (send_email) और बनाएं . क्लिक करें :
दिखाई देने वाले VBA संपादक में निम्न कोड को कॉपी और पेस्ट करें (मैंने इस पर प्रासंगिक टिप्पणियां की हैं)। ईमेल भेजने को स्वचालित करने के लिए, मैं CreateObject ("आउटलुक.एप्लिकेशन") फ़ंक्शन का उपयोग करूंगा जो VBA स्क्रिप्ट के अंदर एक आउटलुक ऑब्जेक्ट बनाने और उपयोग करने की अनुमति देता है।
महत्वपूर्ण . आउटलुक प्रोफाइल को भेजने वाले कंप्यूटर पर कॉन्फ़िगर किया जाना चाहिए। इस मेलबॉक्स (और ईमेल पता) का उपयोग ईमेल भेजने के लिए किया जाएगा।
Sub send_email()
Dim olApp As Object
Dim olMailItm As Object
Dim iCounter As Integer
Dim Dest As Variant
Dim SDest As String
' Subject
strSubj = "Your account status on woshub.com domain"
On Error GoTo dbg
' Create a new Outlook object
Set olApp = CreateObject("Outlook.Application")
For iCounter = 1 To WorksheetFunction.CountA(Columns(1))
' Create a new item (email) in Outlook
Set olMailItm = olApp.CreateItem(0)
strBody = ""
useremail = Cells(iCounter, 1).Value
FullUsername = Cells(iCounter, 2).Value
Status = Cells(iCounter, 4).Value
pwdchange = Cells(iCounter, 3).Value
'Make the body of an email
strBody = "Dear " & FullUsername & vbCrLf
strBody = strBody & " Your account in woshub.com domain is in" & Status & “ state” & vbCrLf
strBody = strBody & "The date and time of the last password change is" & pwdchange & vbCrLf
olMailItm.To = useremail
olMailItm.Subject = strSubj
olMailItm.BodyFormat = 1
' 1 – text format of an email, 2 - HTML format
olMailItm.Body = strBody
olMailItm.Send
Set olMailItm = Nothing
Next iCounter
Set olApp = Nothing
dbg:
'Display errors, if any
If Err.Description <> "" Then MsgBox Err.Description
End Sub
इस एक्सेल फ़ाइल को .xlsm . के रूप में सहेजें (मैक्रो का समर्थन करने वाली एक्सेल वर्कबुक का एक प्रारूप)। ईमेल भेजने के लिए, बनाई गई प्रक्रिया (मैक्रो) का चयन करें और रन पर क्लिक करें।
मैक्रो एक्सेल वर्कशीट पर एक-एक करके सभी पंक्तियों से गुजरेगा, सूची में प्रत्येक प्राप्तकर्ता को एक ईमेल उत्पन्न करेगा और एक ईमेल भेजेगा।