एक ही मेल अगर हर रोज हो भेजना तो use करे ये macro

आज के इस Hindi VBA Tutorial में हम लाये हे Outlook का एक छोटा सा Macro जो आपके रोज के काम को काफी आसान बना सकता हे अगर आपको किसी एक ही फाइल को  रोज अपडेट करके एक या दो लोगों को रोज भेजना होता हे तो यह मैक्रो आपके काफी काम आ सकता हे 

इस मैक्रो से आप रोज रोज ईमेल क्रिएट करने और फाइल को attach करने तथा कॉपी पेस्ट आदी से बच सकते हे इस मैक्रो को आप निचे दिए गए टेक्स्ट बॉक्स से कॉपी कर ले  

Option Explicit <br /> Sub create_and_email_AnyFile() <br /> Dim EmailSubject As String, EmailBody As String <br /> Dim Email_To As String, Email_CC As String, Email_BCC As String <br /> Dim DisplayEmail As Boolean Dim OutlookApp As Object, OutlookMail As Object <br /> ' ***************************************************** <br /> ' ***** You Can Change These Variables ********* <br /> <br /> EmailSubject = "Enter the Subject Line" 'Change this to change the subject of the email. <br /> DisplayEmail = True 'Change this if you don't want to display the email before sending. Note, you must have a TO email address specified for this to work <br /> Email_To = "xxx@ddd.com" 'Change this if you want to specify To email e.g. ActiveSheet.Range("H1") to get email from cell H1 <br /> Email_CC = "xxx@ddd.com; <br /> Email_BCC = "xxx@ddd.com" <br /> EmailBody = "Dear Sir ," & "<br /> " _<br /> & "Please Enter the Bodxy Text" & "<br /> " _<br /> & " " & "<br /> " _<br /> & "Thanks " & "<br /> " _<br /> & "Signature Line or Your Name" & "<br /> " _<br /> ' ****************************************************** <br /> 'Create an Outlook object and new mail message <br /> Set OutlookApp = CreateObject("Outlook.Application") <br /> Set OutlookMail = OutlookApp.CreateItem(0) <br /> 'Display email and specify To, Subject, etc With OutlookMail <br /> .Display <br /> .To = Email_To <br /> .CC = Email_CC <br /> .BCC = Email_BCC <br /> .Subject = EmailSubject <br /> .HTMLBody = EmailBody <br /> .Attachments.Add "Enter the Path of the File You Want to Attach" <br /> If DisplayEmail = False Then <br /> .Send <br /> End If <br /> End With <br /> End Sub

जहाँ भी आप को लगे वहां अपने हिसाब से VBA macro को एडिट कर ले जेसे फाइल लोकेशन , ईमेल इत्यादि 

मैक्रो को कोपी करने के बाद आउट लुक में Alt+F11 प्रेस करे तो विसुअल बेसिक की विंडो ओपन हो जाएगी 

अब इन्सर्ट मेनू में जाकर एक Module इन्सर्ट करे और ऊपर दिया गया कोड पेस्ट करके सेव कर दे 

अब आउटलुक के टूलबार एरिया में राईट क्लिक कर customize पर क्लिक करे 

COMMANDS से macros सेलेक्ट करे 

अब अपने बनाये VBA macro को ड्रैग करके ऊपर टूल बार पर छोड़ दे 

बाकि सब क्लोज करके बटन पर क्लिक करके अपना मैक्रो try करके देख ले

अगर कुछ प्रॉब्लम लगे तो Alt+F11  प्रेस करके अपना कोड फिर से चेक कर ले कहीं कुछ मिस्टेक लगे तो ठीक कर के फिर से try कर ले
अपने कमेंट्स द्वारा जरुर बताये की ये Hindi VBA Tutorial  आपको केसा लगा