VBA ਨਾਲ ਈਮੇਲ ਵਿੱਚ ਐਕਸਲ ਸਕ੍ਰੀਨਸ਼ਾਟ ਨੂੰ ਏਮਬੇਡ ਕਰੋ

ਈਮੇਲਾਂ ਵਿੱਚ ਐਕਸਲ ਰੇਂਜਾਂ ਨੂੰ ਸਕ੍ਰੀਨਸ਼ੌਟਸ ਦੇ ਰੂਪ ਵਿੱਚ ਭੇਜਣਾ

ਵਿਜ਼ੂਅਲ ਬੇਸਿਕ ਫਾਰ ਐਪਲੀਕੇਸ਼ਨਜ਼ (VBA) ਦੁਆਰਾ ਈਮੇਲਾਂ ਵਿੱਚ ਐਕਸਲ ਡੇਟਾ ਨੂੰ ਏਕੀਕ੍ਰਿਤ ਕਰਨਾ ਜਾਣਕਾਰੀ ਨੂੰ ਸਾਂਝਾ ਕਰਨ ਦਾ ਇੱਕ ਗਤੀਸ਼ੀਲ ਤਰੀਕਾ ਪ੍ਰਦਾਨ ਕਰਦਾ ਹੈ। ਕਿਸੇ ਈਮੇਲ ਵਿੱਚ ਐਕਸਲ ਰੇਂਜ ਦਾ ਸਕ੍ਰੀਨਸ਼ੌਟ ਭੇਜਣ ਵੇਲੇ, ਉਪਭੋਗਤਾਵਾਂ ਨੂੰ ਇੱਕ ਸਮੱਸਿਆ ਆ ਸਕਦੀ ਹੈ ਜਿੱਥੇ ਈਮੇਲ ਹਸਤਾਖਰ ਹਟਾ ਦਿੱਤੇ ਜਾਂਦੇ ਹਨ। ਇਹ ਸਮੱਸਿਆ ਆਮ ਤੌਰ 'ਤੇ ਉਦੋਂ ਪੈਦਾ ਹੁੰਦੀ ਹੈ ਜਦੋਂ ਚਿੱਤਰ ਸੰਮਿਲਨ ਪ੍ਰਕਿਰਿਆ ਡਿਫੌਲਟ ਈਮੇਲ ਫਾਰਮੈਟਿੰਗ ਵਿੱਚ ਦਖਲ ਦਿੰਦੀ ਹੈ।

ਜਦੋਂ ਕਿ ਹੋਰ ਵਰਕਸ਼ੀਟਾਂ ਦਸਤਖਤ ਨੂੰ ਗੁਆਏ ਬਿਨਾਂ ਇਸ ਏਕੀਕਰਣ ਨੂੰ ਸੰਭਾਲ ਸਕਦੀਆਂ ਹਨ, ਚਿੱਤਰਾਂ ਨੂੰ ਅਟੈਚ ਕਰਨ ਦੇ ਖਾਸ ਤਰੀਕੇ ਸਥਾਪਤ ਸੈੱਟਅੱਪ ਨੂੰ ਵਿਗਾੜ ਸਕਦੇ ਹਨ। ਇਹ ਗਾਈਡ ਪੜਚੋਲ ਕਰਦੀ ਹੈ ਕਿ ਤੁਹਾਡੇ ਐਕਸਲ ਡੇਟਾ ਦੀ ਵਿਜ਼ੂਅਲ ਪ੍ਰਤੀਨਿਧਤਾ ਨੂੰ ਏਮਬੈਡ ਕਰਦੇ ਹੋਏ ਤੁਹਾਡੀ ਈਮੇਲ ਦੀ ਇਕਸਾਰਤਾ ਨੂੰ ਕਿਵੇਂ ਬਰਕਰਾਰ ਰੱਖਣਾ ਹੈ—ਹਸਤਾਖਰ ਸ਼ਾਮਲ ਕੀਤੇ ਗਏ ਹਨ।

ਹੁਕਮ	ਵਰਣਨ
CreateObject("Outlook.Application")	ਆਉਟਲੁੱਕ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਇੱਕ ਨਵੀਂ ਉਦਾਹਰਣ ਬਣਾਉਂਦਾ ਹੈ, VBA ਨੂੰ ਆਉਟਲੁੱਕ ਨੂੰ ਕੰਟਰੋਲ ਕਰਨ ਦੀ ਆਗਿਆ ਦਿੰਦਾ ਹੈ।
.GetInspector.WordEditor	ਈਮੇਲ ਦੇ HTML ਸਰੀਰ ਨੂੰ ਹੇਰਾਫੇਰੀ ਕਰਨ ਲਈ ਆਉਟਲੁੱਕ ਦੇ ਅੰਦਰ ਵਰਡ ਐਡੀਟਰ ਤੱਕ ਪਹੁੰਚ ਕਰਦਾ ਹੈ।
.Pictures.Paste	ਕਾਪੀ ਕੀਤੀ ਐਕਸਲ ਰੇਂਜ ਨੂੰ ਵਰਕਸ਼ੀਟ ਵਿੱਚ ਤਸਵੀਰ ਦੇ ਰੂਪ ਵਿੱਚ ਪੇਸਟ ਕਰੋ। ਇਹ ਰੇਂਜ ਨੂੰ ਇੱਕ ਚਿੱਤਰ ਵਿੱਚ ਬਦਲਣ ਲਈ ਕੁੰਜੀ ਹੈ।
PasteAndFormat (wdFormatPicture)	ਕਲਿੱਪਬੋਰਡ ਸਮੱਗਰੀ ਨੂੰ ਪੇਸਟ ਕਰਦਾ ਹੈ ਅਤੇ ਚਿੱਤਰ ਦੀ ਗੁਣਵੱਤਾ ਨੂੰ ਬਣਾਈ ਰੱਖਣ ਲਈ ਈਮੇਲ ਬਾਡੀ ਵਿੱਚ ਤਸਵੀਰ ਫਾਰਮੈਟ ਲਾਗੂ ਕਰਦਾ ਹੈ।
.HTMLBody	ਈਮੇਲ ਦੀ HTML ਸਮੱਗਰੀ ਨੂੰ ਸੰਸ਼ੋਧਿਤ ਕਰਦਾ ਹੈ, ਦਸਤਖਤ ਨੂੰ ਸੁਰੱਖਿਅਤ ਰੱਖਦੇ ਹੋਏ ਚਿੱਤਰਾਂ ਅਤੇ ਕਸਟਮ ਟੈਕਸਟ ਨੂੰ ਏਮਬੈਡ ਕਰਨ ਲਈ ਮਹੱਤਵਪੂਰਨ।
On Error Resume Next	ਨਿਰਵਿਘਨ ਐਗਜ਼ੀਕਿਊਸ਼ਨ ਨੂੰ ਯਕੀਨੀ ਬਣਾਉਣ ਲਈ ਇੱਥੇ ਵਰਤੇ ਗਏ ਕੋਡ ਦੀ ਅਗਲੀ ਲਾਈਨ ਦੇ ਨਾਲ ਜਾਰੀ ਰੱਖ ਕੇ VBA ਵਿੱਚ ਰਨਟਾਈਮ ਗਲਤੀਆਂ ਨੂੰ ਸੰਭਾਲਦਾ ਹੈ।

ਸਕ੍ਰਿਪਟ ਵਿਧੀ ਦੀ ਵਿਆਖਿਆ ਕੀਤੀ ਗਈ: ਐਕਸਲ-ਟੂ-ਈ-ਮੇਲ ਸਕ੍ਰੀਨਸ਼ੌਟਸ ਨੂੰ ਆਟੋਮੈਟਿਕ ਕਰਨਾ

VBA ਸਕ੍ਰਿਪਟ ਪ੍ਰਦਾਨ ਕੀਤੀ ਗਈ ਆਉਟਲੁੱਕ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਈਮੇਲ ਦੁਆਰਾ ਇੱਕ ਸਕ੍ਰੀਨਸ਼ੌਟ ਦੇ ਰੂਪ ਵਿੱਚ ਇੱਕ ਐਕਸਲ ਰੇਂਜ ਭੇਜਣ ਦੀ ਪ੍ਰਕਿਰਿਆ ਨੂੰ ਸਵੈਚਾਲਤ ਕਰਦੀ ਹੈ। ਇਹ ਸਕ੍ਰਿਪਟ ਆਉਟਲੁੱਕ ਦੇ ਨਾਲ ਉਦਾਹਰਨਾਂ ਬਣਾ ਕੇ ਸ਼ੁਰੂ ਹੁੰਦੀ ਹੈ , ਅਤੇ ਇੱਕ ਈਮੇਲ ਆਈਟਮ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ . ਇਹ ਵਰਕਸ਼ੀਟ ਅਤੇ ਭੇਜੇ ਜਾਣ ਵਾਲੇ ਸੈੱਲਾਂ ਦੀ ਖਾਸ ਰੇਂਜ ਦੀ ਚੋਣ ਕਰਦਾ ਹੈ। ਹੁਕਮ ਵਰਤ ਕੇ , ਸਕ੍ਰਿਪਟ ਚੁਣੀ ਹੋਈ ਰੇਂਜ ਨੂੰ ਸਿੱਧੇ ਐਕਸਲ ਵਾਤਾਵਰਨ ਦੇ ਅੰਦਰ ਇੱਕ ਚਿੱਤਰ ਵਜੋਂ ਕੈਪਚਰ ਕਰਦੀ ਹੈ।

ਇੱਕ ਵਾਰ ਤਸਵੀਰ ਨੂੰ ਚਿਪਕਾਉਣ ਤੋਂ ਬਾਅਦ, ਸਕ੍ਰਿਪਟ ਦੀ ਵਰਤੋਂ ਕਰਦੀ ਹੈ ਈਮੇਲ ਦੀ ਸਮੱਗਰੀ ਨੂੰ ਵਰਡ ਫਾਰਮੈਟ ਵਿੱਚ ਹੇਰਾਫੇਰੀ ਕਰਨ ਲਈ, ਇਹ ਯਕੀਨੀ ਬਣਾਉਣ ਲਈ ਕਿ ਦਸਤਖਤਾਂ ਦੀ ਤਰ੍ਹਾਂ ਫਾਰਮੈਟਿੰਗ ਨੂੰ ਸੁਰੱਖਿਅਤ ਰੱਖਿਆ ਗਿਆ ਹੈ। ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਚਿੱਤਰ ਨੂੰ ਸ਼ਾਮਲ ਕੀਤਾ ਗਿਆ ਹੈ , ਜੋ ਕਿ ਐਕਸਲ ਰੇਂਜ ਦੀ ਵਿਜ਼ੂਅਲ ਵਫ਼ਾਦਾਰੀ ਨੂੰ ਕਾਇਮ ਰੱਖਦਾ ਹੈ। ਸਕ੍ਰਿਪਟ ਗਤੀਸ਼ੀਲ ਤੌਰ 'ਤੇ ਈਮੇਲ ਸਮੱਗਰੀ ਨੂੰ ਵਾਧੂ ਟੈਕਸਟ ਲਈ ਪਲੇਸਹੋਲਡਰ ਨਾਲ ਜੋੜਦੀ ਹੈ, ਜਿਸ ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਸਰੀਰ ਨੂੰ ਸੈੱਟ ਕੀਤਾ ਜਾਂਦਾ ਹੈ . ਇਹ ਵਿਧੀ ਯਕੀਨੀ ਬਣਾਉਂਦੀ ਹੈ ਕਿ ਈਮੇਲ ਸਾਰੇ ਫਾਰਮੈਟਿੰਗ ਨੂੰ ਬਰਕਰਾਰ ਰੱਖਦੀ ਹੈ, ਜਿਸ ਵਿੱਚ ਪਹਿਲਾਂ ਸੈੱਟ ਕੀਤੇ ਦਸਤਖਤ ਵੀ ਸ਼ਾਮਲ ਹਨ, ਇਸ ਨੂੰ ਪੇਸ਼ੇਵਰ ਸੰਚਾਰ ਲਈ ਢੁਕਵਾਂ ਬਣਾਉਂਦਾ ਹੈ।

Sub send_email_with_table_as_pic()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet
    Dim table As Range
    Dim pic As Picture
    Dim wordDoc As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    Set ws = ThisWorkbook.Sheets("SheetName")
    Set table = ws.Range("A1:J31")
    ws.Activate
    table.Copy
    Set pic = ws.Pictures.Paste
    pic.Copy
    With OutMail
        .Display
        Set wordDoc = .GetInspector.WordEditor
        wordDoc.Range.PasteAndFormat (wdFormatPicture)
        .HTMLBody = "Hello, <br> Please see the below: <br>" & .HTMLBody
        .To = "xx@xxx.com"
        .CC = "xx@xxx.com"
        .BCC = ""
        .Subject = "Excel Snapshot " & Format(Now, "mm-dd-yy")
    End With
    On Error GoTo 0
    Set OutApp = Nothing
    Set OutMail = Nothing
End Sub

ਐਕਸਲ ਨਾਲ VBA ਈਮੇਲ ਆਟੋਮੇਸ਼ਨ ਨੂੰ ਵਧਾਉਣਾ

ਆਟੋਮੈਟਿਕ ਈਮੇਲਾਂ ਲਈ VBA ਨੂੰ ਸ਼ਾਮਲ ਕਰਨਾ ਜਿਸ ਵਿੱਚ ਐਕਸਲ ਸਕ੍ਰੀਨਸ਼ਾਟ ਸ਼ਾਮਲ ਹੁੰਦੇ ਹਨ, ਪੇਸ਼ੇਵਰ ਸੈਟਿੰਗਾਂ ਵਿੱਚ ਉਤਪਾਦਕਤਾ ਅਤੇ ਸੰਚਾਰ ਨੂੰ ਬਹੁਤ ਵਧਾ ਸਕਦੇ ਹਨ। ਇਹ ਪਹੁੰਚ ਉਪਭੋਗਤਾਵਾਂ ਨੂੰ ਸਵੈਚਲਿਤ ਤੌਰ 'ਤੇ ਰਿਪੋਰਟਾਂ, ਵਿੱਤੀ ਸਟੇਟਮੈਂਟਾਂ, ਜਾਂ ਡੇਟਾ ਸਨੈਪਸ਼ਾਟ ਈਮੇਲ ਦੁਆਰਾ ਤਿਆਰ ਕਰਨ ਅਤੇ ਭੇਜਣ ਦੀ ਆਗਿਆ ਦਿੰਦੀ ਹੈ, ਹੱਥੀਂ ਕੋਸ਼ਿਸ਼ਾਂ ਨੂੰ ਘੱਟ ਕਰਨ ਅਤੇ ਮਨੁੱਖੀ ਗਲਤੀ ਦੀ ਸੰਭਾਵਨਾ ਨੂੰ ਘਟਾਉਣ ਲਈ। ਇਹਨਾਂ ਕੰਮਾਂ ਨੂੰ ਸਕ੍ਰਿਪਟ ਕਰਕੇ, ਕਾਰੋਬਾਰ ਇਹ ਯਕੀਨੀ ਬਣਾ ਸਕਦੇ ਹਨ ਕਿ ਡੇਟਾ-ਸੰਚਾਲਿਤ ਸੰਚਾਰ ਦੋਵੇਂ ਸਮੇਂ ਸਿਰ ਅਤੇ ਲਗਾਤਾਰ ਫਾਰਮੈਟ ਕੀਤੇ ਗਏ ਹਨ।

ਹਾਲਾਂਕਿ, ਪ੍ਰਾਇਮਰੀ ਚੁਣੌਤੀ ਮੌਜੂਦਾ ਈਮੇਲ ਤੱਤਾਂ ਜਿਵੇਂ ਕਿ ਦਸਤਖਤਾਂ ਵਿੱਚ ਵਿਘਨ ਪਾਏ ਬਿਨਾਂ ਆਉਟਲੁੱਕ ਈਮੇਲਾਂ ਵਿੱਚ ਐਕਸਲ ਵਿਜ਼ੁਅਲਸ ਨੂੰ ਏਕੀਕ੍ਰਿਤ ਕਰਨ ਵਿੱਚ ਹੈ। ਇਹ ਗੁੰਝਲਤਾ ਆਉਟਲੁੱਕ ਦੇ HTML ਅਤੇ ਵਿਜ਼ੂਅਲ ਸਮਗਰੀ ਦੇ ਪ੍ਰਬੰਧਨ ਤੋਂ ਪੈਦਾ ਹੁੰਦੀ ਹੈ, ਜੋ ਕਿ ਰਵਾਇਤੀ ਵੈਬ ਵਿਕਾਸ ਵਾਤਾਵਰਣਾਂ ਤੋਂ ਕਾਫ਼ੀ ਵੱਖਰੀ ਹੈ। ਇਸ ਚੁਣੌਤੀ ਨੂੰ ਸੰਬੋਧਿਤ ਕਰਨ ਲਈ ਐਕਸਲ ਮਾਡਲ ਅਤੇ ਆਉਟਲੁੱਕ ਦੇ ਪ੍ਰੋਗਰਾਮਿੰਗ ਇੰਟਰਫੇਸ ਦੋਵਾਂ ਦੀ ਡੂੰਘੀ ਸਮਝ ਦੀ ਲੋੜ ਹੈ।

1. ਮੈਂ ਇੱਕ ਐਕਸਲ ਰੇਂਜ ਨੂੰ ਈਮੇਲ ਦੇ ਰੂਪ ਵਿੱਚ ਭੇਜਣ ਨੂੰ ਕਿਵੇਂ ਸਵੈਚਲਿਤ ਕਰਾਂ?
2. ਦੀ ਵਰਤੋਂ ਕਰੋ ਆਉਟਲੁੱਕ ਸ਼ੁਰੂ ਕਰਨ ਲਈ ਅਤੇ ਇੱਕ ਨਵੀਂ ਈਮੇਲ ਬਣਾਉਣ ਲਈ।
3. ਇੱਕ ਚਿੱਤਰ ਸੰਮਿਲਿਤ ਕਰਨ ਵੇਲੇ ਈਮੇਲ ਦਸਤਖਤ ਕਿਉਂ ਅਲੋਪ ਹੋ ਜਾਂਦੇ ਹਨ?
4. ਅਜਿਹਾ ਇਸ ਲਈ ਹੁੰਦਾ ਹੈ ਕਿਉਂਕਿ ਆਉਟਲੁੱਕ HTML ਬਾਡੀ ਨੂੰ ਮੁੜ-ਫਾਰਮੈਟ ਕਰ ਸਕਦਾ ਹੈ ਜਦੋਂ ਚਿੱਤਰਾਂ ਨੂੰ ਸਿੱਧਾ ਸੰਮਿਲਿਤ ਕੀਤਾ ਜਾਂਦਾ ਹੈ, ਦਸਤਖਤਾਂ ਸਮੇਤ ਮੌਜੂਦਾ ਫਾਰਮੈਟਿੰਗ ਨੂੰ ਓਵਰਰਾਈਡ ਕਰਦਾ ਹੈ।
5. ਕੀ ਮੈਂ ਸਕ੍ਰੀਨਸ਼ਾਟ ਭੇਜਣ ਵੇਲੇ ਫਾਰਮੈਟਿੰਗ ਨੂੰ ਸੁਰੱਖਿਅਤ ਰੱਖ ਸਕਦਾ ਹਾਂ?
6. ਜੀ, ਵਰਤ ਕੇ ਆਉਟਲੁੱਕ ਵਿੱਚ, ਤੁਸੀਂ ਚਿੱਤਰਾਂ ਨੂੰ ਇਸ ਤਰੀਕੇ ਨਾਲ ਸ਼ਾਮਲ ਕਰ ਸਕਦੇ ਹੋ ਜੋ ਆਲੇ ਦੁਆਲੇ ਦੇ ਫਾਰਮੈਟਿੰਗ ਨੂੰ ਸੁਰੱਖਿਅਤ ਰੱਖਦਾ ਹੈ।
7. ਕੀ VBA ਦੀ ਵਰਤੋਂ ਕਰਕੇ ਇਹਨਾਂ ਈਮੇਲਾਂ ਨੂੰ ਤਹਿ ਕਰਨਾ ਸੰਭਵ ਹੈ?
8. ਬਿਲਕੁਲ, ਤੁਸੀਂ ਪੂਰਵ-ਨਿਰਧਾਰਤ ਸਮੇਂ 'ਤੇ ਈਮੇਲ ਭੇਜਣ ਨੂੰ ਟ੍ਰਿਗਰ ਕਰਨ ਲਈ ਐਕਸਲ ਦੇ ਅੰਦਰ ਅਨੁਸੂਚਿਤ ਕਾਰਜਾਂ ਨੂੰ ਸੈੱਟ ਕਰਨ ਲਈ VBA ਦੀ ਵਰਤੋਂ ਕਰ ਸਕਦੇ ਹੋ।
9. ਆਮ ਗਲਤੀਆਂ ਕੀ ਹਨ ਜਿਨ੍ਹਾਂ 'ਤੇ ਧਿਆਨ ਦੇਣਾ ਚਾਹੀਦਾ ਹੈ?
10. ਆਮ ਸਮੱਸਿਆਵਾਂ ਵਿੱਚ ਪਰਿਭਾਸ਼ਿਤ ਵਸਤੂਆਂ ਦੇ ਕਾਰਨ ਰਨਟਾਈਮ ਗਲਤੀਆਂ ਜਾਂ ਐਕਸਲ ਰੇਂਜਾਂ ਦੇ ਸਹੀ ਢੰਗ ਨਾਲ ਨਕਲ ਨਾ ਕਰਨ ਦੀਆਂ ਸਮੱਸਿਆਵਾਂ ਸ਼ਾਮਲ ਹਨ। ਦੀ ਵਰਤੋਂ ਕਰਦੇ ਹੋਏ ਇਹਨਾਂ ਤਰੁਟੀਆਂ ਨੂੰ ਸੁਚੱਜੇ ਢੰਗ ਨਾਲ ਪ੍ਰਬੰਧਿਤ ਕਰਨ ਵਿੱਚ ਮਦਦ ਕਰ ਸਕਦਾ ਹੈ।

VBA ਆਉਟਲੁੱਕ ਦੇ ਨਾਲ ਐਕਸਲ ਡੇਟਾ ਨੂੰ ਏਕੀਕ੍ਰਿਤ ਕਰਨ, ਨਿਰਵਿਘਨ ਡੇਟਾ ਸੰਚਾਰ ਦੀ ਸਹੂਲਤ ਅਤੇ ਪੇਸ਼ੇਵਰ ਵਾਤਾਵਰਣ ਵਿੱਚ ਰਿਪੋਰਟ ਸਾਂਝਾ ਕਰਨ ਲਈ ਇੱਕ ਮਜ਼ਬੂਤ ​​ਫਰੇਮਵਰਕ ਦੀ ਪੇਸ਼ਕਸ਼ ਕਰਦਾ ਹੈ। VBA ਵਿੱਚ ਸਹੀ ਤਰੀਕਿਆਂ ਨੂੰ ਸਮਝਣ ਅਤੇ ਲਾਗੂ ਕਰਨ ਨਾਲ, ਉਪਭੋਗਤਾ ਚਿੱਤਰਾਂ ਨੂੰ ਸੰਮਿਲਿਤ ਕਰਦੇ ਸਮੇਂ ਈਮੇਲ ਦਸਤਖਤਾਂ ਦੇ ਗਾਇਬ ਹੋਣ ਵਰਗੀਆਂ ਆਮ ਸਮੱਸਿਆਵਾਂ ਤੋਂ ਬਚ ਸਕਦੇ ਹਨ। ਇਹ ਸਮਰੱਥਾ ਨਾ ਸਿਰਫ਼ ਉਤਪਾਦਕਤਾ ਨੂੰ ਵਧਾਉਂਦੀ ਹੈ ਸਗੋਂ ਭੇਜੀਆਂ ਗਈਆਂ ਈਮੇਲਾਂ ਦੀ ਪੇਸ਼ੇਵਰ ਇਕਸਾਰਤਾ ਨੂੰ ਵੀ ਯਕੀਨੀ ਬਣਾਉਂਦੀ ਹੈ।