Excel- ում HTML էլփոստի մարմնով ինչպե՞ս նամակ ուղարկել:
Եթե ցանկանում եք Excel- ում HTML ձևաչափի մարմնի պարունակությամբ էլ-նամակ ուղարկել, այս հոդվածի մեթոդը կարող է օգնել ձեզ:
VBA կոդով HTML էլփոստի մարմնով նամակ ուղարկեք
VBA կոդով HTML էլփոստի մարմնով նամակ ուղարկեք
Excel- ում HTML ձևաչափի մարմնի պարունակությամբ նամակ ուղարկելու համար արեք հետևյալը.
1. Սեղմեք ալտ + F11 միաժամանակ բացել Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:
VBA կոդ. Excel- ում HTML էլփոստի մարմնով նամակ ուղարկեք
Sub SendEmailformattext()
'Update by Extendoffice.com
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp As Outlook.Application
Dim xMailOut As Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
For Each xRgEach In xRg
xRgVal = xRgEach.Value
If xRgVal Like "?*@?*.?*" Then
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
.To = xRgVal
.Subject = "Test"
.HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
'.Send
End With
End If
Next
Set xMailOut = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End SubNotes:
3: սեղմեք Գործիքներ > Սայլակ, ստուգեք Microsoft Outlook օբյեկտի գրադարան տուփի մեջ Հղումներ - VAProject երկխոսության տուփ, ապա կտտացրեք OK կոճակ Տեսեք,
4. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, ընտրեք ստացողների էլ. փոստի հասցեները և այնուհետև կտտացրեք այն OK կոճակը:
Դրանից հետո ստեղծվում է նշված դաշտերով և HTML մարմնով էլ. Փոստ: Խնդրում ենք սեղմել ուղարկել այն ուղարկելու կոճակը:
Հեշտությամբ էլ-նամակ ուղարկեք Outlook- ի միջոցով ՝ հիմնվելով ստեղծված փոստային ցուցակի վրա.
The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է օգտվողներին Excel- ում էլփոստ ուղարկող Outlook- ի միջոցով, ինչպես ցույց է տրված ստորև նկարված նկարում:
Ներբեռնեք և փորձեք հիմա: (30 օր անվճար երթուղի)
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
- Ինչպե՞ս ստորագրություն տեղադրել Outlook էլփոստի մեջ, երբ vba- ն ուղարկում եք Excel- ում:
- Excel- ում ինչպե՞ս ուղարկել էլփոստ ՝ նշված համարձակ / չափ / գույն / ընդգծված տեքստի ձևաչափով:
- Ինչպե՞ս ուղարկել էլ.փոստ առանց Excel- ի Outlook- ի:
- Ինչպե՞ս ուղարկել Excel- ում vba- ով էլեկտրոնային փոստով որոշակի գծապատկեր:
- Ինչպե՞ս նամակ ուղարկել Excel- ում օրվա որոշակի ժամին:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
