VBA ਦੁਆਰਾ ਤਿਆਰ ਕੀਤੀਆਂ ਈਮੇਲਾਂ ਵਿੱਚ ਮੁਦਰਾ ਫਾਰਮੈਟਾਂ ਨੂੰ ਏਮਬੈਡ ਕਰਨਾ

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

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

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

ਹੁਕਮ	ਵਰਣਨ
Dim	ਵੇਰੀਏਬਲ ਅਤੇ ਉਹਨਾਂ ਦੀਆਂ ਕਿਸਮਾਂ ਦਾ ਐਲਾਨ ਕਰਨ ਲਈ VBA ਵਿੱਚ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ। ਇੱਥੇ, ਇਹ ਆਉਟਲੁੱਕ ਅਤੇ ਵਰਕਸ਼ੀਟ ਆਬਜੈਕਟ ਦੇ ਨਾਲ-ਨਾਲ ਸਤਰ ਨੂੰ ਪਰਿਭਾਸ਼ਿਤ ਕਰਦਾ ਹੈ।
Set	ਇੱਕ ਵੇਰੀਏਬਲ ਲਈ ਇੱਕ ਵਸਤੂ ਸੰਦਰਭ ਨਿਰਧਾਰਤ ਕਰਦਾ ਹੈ। ਆਉਟਲੁੱਕ ਐਪਲੀਕੇਸ਼ਨ ਅਤੇ ਮੇਲ ਆਈਟਮਾਂ ਦੀਆਂ ਉਦਾਹਰਣਾਂ ਬਣਾਉਣ ਲਈ ਜ਼ਰੂਰੀ।
Worksheets("Releases")	ਵਰਕਬੁੱਕ ਦੇ ਅੰਦਰ "ਰਿਲੀਜ਼" ਨਾਮ ਦੀ ਇੱਕ ਖਾਸ ਵਰਕਸ਼ੀਟ ਦਾ ਹਵਾਲਾ ਦਿੰਦਾ ਹੈ, ਡੇਟਾ ਰੇਂਜ ਤੱਕ ਪਹੁੰਚ ਕਰਨ ਲਈ ਮਹੱਤਵਪੂਰਨ।
New Outlook.Application	ਆਉਟਲੁੱਕ ਐਪਲੀਕੇਸ਼ਨ ਦੀ ਇੱਕ ਨਵੀਂ ਉਦਾਹਰਣ ਬਣਾਉਂਦਾ ਹੈ, ਈਮੇਲਾਂ ਦਾ ਪ੍ਰਬੰਧਨ ਕਰਨ ਲਈ ਸਕ੍ਰਿਪਟ ਨੂੰ ਸਮਰੱਥ ਬਣਾਉਂਦਾ ਹੈ।
Format()	ਇੱਕ ਮੁੱਲ ਨੂੰ ਇੱਕ ਫਾਰਮੈਟ ਕੀਤੀ ਸਤਰ ਵਿੱਚ ਬਦਲਦਾ ਹੈ, ਇੱਥੇ ਈਮੇਲ ਬਾਡੀ ਵਿੱਚ ਨੰਬਰਾਂ ਨੂੰ ਮੁਦਰਾ ਦੇ ਰੂਪ ਵਿੱਚ ਫਾਰਮੈਟ ਕਰਨ ਲਈ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ।
.HTMLBody	ਫਾਰਮੈਟ ਕੀਤੇ ਟੈਕਸਟ ਅਤੇ HTML ਟੈਗਸ ਨੂੰ ਸ਼ਾਮਲ ਕਰਨ ਦੀ ਇਜਾਜ਼ਤ ਦਿੰਦੇ ਹੋਏ, ਈਮੇਲ ਬਾਡੀ ਦੀ HTML ਸਮੱਗਰੀ ਨੂੰ ਸੈੱਟ ਕਰਦਾ ਹੈ।

VBA ਈਮੇਲ ਆਟੋਮੇਸ਼ਨ ਤਕਨੀਕਾਂ ਨੂੰ ਸਮਝਣਾ

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

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

Sub EmailWithCurrencyFormat()
    Dim r As Worksheet
    Dim appOutlook As Outlook.Application
    Dim mEmail As Outlook.MailItem
    Dim formattedCurrency As String
    Set r = Worksheets("Releases")
    Set appOutlook = New Outlook.Application
    Set mEmail = appOutlook.CreateItem(olMailItem)
    formattedCurrency = Format(r.Range("A1").Value, "$#,##0.00")
    With mEmail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Test"
        .HTMLBody = "Test " & formattedCurrency
        .Display
    End With
    Set mEmail = Nothing
    Set appOutlook = Nothing
End Sub

Sub SendFormattedCurrencyEmail()
    Dim ws As Worksheet
    Dim outlookApp As Outlook.Application
    Dim emailItem As Outlook.MailItem
    Dim currencyValue As String
    Set ws = ThisWorkbook.Sheets("Releases")
    Set outlookApp = New Outlook.Application
    Set emailItem = outlookApp.CreateItem(olMailItem)
    currencyValue = Format(ws.Range("A1").Value, "$#,##0.00") 'Ensure you have currency format
    With emailItem
        .To = "recipient@example.com"
        .Subject = "Financial Report"
        .HTMLBody = "<p>Current Release Fund: " & currencyValue & "</p>"
        .Display 'or .Send
    End With
    Set emailItem = Nothing
    Set outlookApp = Nothing
End Sub

VBA ਈਮੇਲਾਂ ਵਿੱਚ ਡੇਟਾ ਫਾਰਮੈਟਿੰਗ ਲਈ ਉੱਨਤ ਤਕਨੀਕਾਂ

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

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

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