Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս տեղադրել Outlook- ի ստորագրությունը Excel- ում էլ-նամակ ուղարկելիս:

Ենթադրենք, որ ցանկանում եք նամակ ուղարկել անմիջապես Excel-ում, ինչպե՞ս կարող եք ավելացնել Outlook-ի կանխադրված ստորագրությունը էլ. Այս հոդվածը տրամադրում է երկու եղանակ, որոնք կօգնեն ձեզ ավելացնել Outlook-ի ստորագրությունը Excel-ում էլփոստ ուղարկելիս:

Excel VBA- ի միջոցով ուղարկելիս ստորագրություն տեղադրեք Outlook էլփոստի մեջ
Inարմանալի գործիքով Excel- ում էլ-նամակ ուղարկելիս հեշտությամբ տեղադրեք Outlook ստորագրությունը

Excel- ում փոստ ուղարկելու այլ ձեռնարկներ ...


Excel VBA- ի միջոցով ուղարկելիս ստորագրություն տեղադրեք Outlook էլփոստի մեջ

Օրինակ, աշխատաթերթում կա էլփոստի հասցեների ցանկ՝ Excel-ում այս բոլոր հասցեներին էլ-նամակներ ուղարկելու և Outlook-ի կանխադրված ստորագրությունը նամակներում ավելացնելու համար: Խնդրում ենք կիրառել ստորև ներկայացված VBA կոդը՝ դրան հասնելու համար:

1. Բացեք աշխատաթերթը պարունակում է էլ. Փոստի հասցեների ցանկ, որին ուզում եք ուղարկել էլ. Փոստ, ապա սեղմել ալտ + F11 ստեղները:

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլ, և ապա պատճենել ստորև VBA 2 Մոդուլի ծածկագրի պատուհանում:

3. Այժմ դուք պետք է փոխարինեք այն .Մարմին տող մեջ VBA 2 ներս ծածկագրով VBA 1. Դրանից հետո տեղափոխեք գիծը .Dուցադրել գծի տակ XMailOut- ով.

VBA 1. Excel-ում Outlook-ի լռելյայն ստորագրությամբ նամակներ ուղարկելու ձևանմուշ

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2. Excel- ում բջիջներում նշված էլ-փոստի հասցեներին նամակ ուղարկեք

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Հետևյալ նկարը կօգնի ձեզ հեշտությամբ գտնել տարբերությունները VBA կոդը փոխելուց հետո:

4. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո ա Excel- ի համար նախատեսված գործիքներ ընտրված պատուհանը հայտնվում է, ընտրեք այն էլ. փոստի հասցեները, որոնց դուք նամակներ կուղարկեք, ապա կտտացրեք OK.

Այնուհետև ստեղծվում են նամակներ: Դուք կարող եք տեսնել, որ Outlook-ի լռելյայն ստորագրությունն ավելացված է էլփոստի մարմնի վերջում:

Հուշում.

  • 1. Դուք կարող եք փոխել էլփոստի մարմինը VBA կոդ 1-ում ՝ ելնելով ձեր կարիքներից:
  • 2. Կոդը գործարկելուց հետո, եթե սխալի երկխոսության պատուհանում հայտնվում է նախազգուշացում, որ օգտագործողի կողմից սահմանված տեսակը սահմանված չէ, փակեք այս երկխոսությունը և այնուհետև անցեք կտտացնելու Գործիքներ > Սայլակ է Microsoft Visual Basic հավելվածների համար պատուհան Բացման մեջ Հղումներ - VBAP նախագիծ պատուհանը, ստուգեք Microsoft Outlook օբյեկտի գրադարան տուփը և կտտացնելը OK. Եվ հետո նորից գործարկեք կոդը:

Inարմանալի գործիքով Excel- ում էլ-նամակ ուղարկելիս հեշտությամբ տեղադրեք Outlook ստորագրությունը

Եթե ​​դուք VBA- ի նորեկ եք, ապա այստեղ մեծապես խորհուրդ ենք տալիս Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ քեզ համար. Այս հատկության միջոցով դուք կարող եք հեշտությամբ ուղարկել էլ.փոստեր ՝ հիմնված Excel- ի որոշակի դաշտերի վրա և ավելացնել Outlook ստորագրությունը դրանց: Խնդրում եմ արեք հետևյալ կերպ.

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

Նախ, անհրաժեշտ է ստեղծել փոստային ցուցակ տարբեր դաշտերով, որոնց հիման վրա էլփոստ կուղարկեք:

Կարող եք ձեռքով ստեղծել փոստային ցուցակ, ինչպես ձեզ հարկավոր է կամ կիրառել «Ստեղծել փոստային ցուցակ» հնարավորությունը ՝ արագ կատարելու համար:

1: սեղմեք Kutools Plus > Ստեղծեք փոստային ցուցակ:

2. Մեջ Ստեղծեք փոստային ցուցակ երկխոսության տուփ, նշեք անհրաժեշտ դաշտերը, ընտրեք, թե որտեղից դուրս կգա ցուցակը, ապա կտտացրեք OK կոճակը:

3. Այժմ ստեղծվում է փոստային ցուցակների նմուշ: Քանի որ դա ընտրանքային ցուցակ է, դուք պետք է դաշտերը փոխեք որոշակի անհրաժեշտ բովանդակության: (թույլատրվում են բազմաթիվ տողեր)

4. Դրանից հետո ընտրեք ամբողջ ցուցակը (ներառեք վերնագրերը), կտտացրեք Kutools Plus > Ուղարկել էլ.

5. Մեջ Ուղարկել նամակներ երկխոսության տուփ:

  • 5.1) Ընտրված փոստային ցուցակում իրերը տեղադրվում են ավտոմատ կերպով համապատասխան դաշտերում.
  • 5.2) Ավարտել էլփոստի մարմինը.
  • 5.3) Ստուգեք և՛ մեկը, և՛ մյուսը Նամակ ուղարկեք Outlook- ի միջոցով և Օգտագործեք Outlook- ի ստորագրության պարամետրերը տուփեր;
  • 5.4) Կտտացրեք այն ուղարկել կոճակ Տեսեք,

Հիմա էլ-նամակներ են ուղարկվում: Եվ լռելյայն Outlook ստորագրությունը ավելացվում է էլփոստի մարմնի վերջում:

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


Առնչվող հոդվածներ քանակը:

Ուղարկեք էլ.փոստ Excel- ում բջիջներում նշված էլ-փոստի հասցեներին
Ենթադրելով, որ դուք ունեք էլ.փոստի հասցեների ցուցակ, և ցանկանում եք այս էլ-փոստի հասցեներին էլեկտրոնային հաղորդագրություն ուղարկել հիմնականում Excel- ում: Ինչպե՞ս հասնել դրան: Այս հոդվածը ձեզ ցույց կտա Excel- ի բջիջներում նշված էլփոստի մի քանի հասցեներին էլ.

Ուղարկեք էլփոստ ՝ Excel- ում նշված տիրույթը պատճենելով և տեղադրելով էլփոստի մարմնում
Շատ դեպքերում, Excel- ի աշխատաթերթում պարունակվող բովանդակության որոշակի տիրույթը կարող է օգտակար լինել ձեր էլփոստի հաղորդակցության մեջ: Այս հոդվածում մենք կներկայացնենք նշված տիրույթում տեղադրված էլփոստի էլփոստի մարմնին ուղղակիորեն Excel- ում ուղարկելու եղանակ:

Ուղարկեք էլփոստ ՝ Excel- ում կցված բազմաթիվ կցորդներով
Այս հոդվածում խոսվում է Outlook- ի միջոցով էլփոստ ուղարկելու մասին ՝ Excel- ում կցված բազմաթիվ կցորդներով:

Ուղարկեք էլ. Նամակ, եթե Excel- ում լրացվել է ժամկետը
Օրինակ, եթե C սյունակում ժամկետի ավարտը պակաս է կամ հավասար է 7 օրվա (ընթացիկ ամսաթիվը ՝ 2017/9/13), ապա էլ. Փոստով ուղարկեք հիշեցում B սյունակում նշված բովանդակությամբ նշված ստացողին Բ սյունակում: հասնել դրան? Այս հոդվածը կտրամադրի VBA մեթոդ ՝ դրանով մանրամասնորեն զբաղվելու համար:

Excel- ում ավտոմատ կերպով նամակ ուղարկեք ՝ հիմնվելով բջջային արժեքի վրա
Ենթադրելով, որ ցանկանում եք Outlook- ի միջոցով նամակ ուղարկել որոշակի ստացողի ՝ Excel- ում նշված բջջային արժեքի հիման վրա: Օրինակ, երբ աշխատանքային թերթում D7 բջիջի արժեքը 200-ից մեծ է, ապա էլ.փոստը ստեղծվում է ավտոմատ կերպով: Այս հոդվածը ներկայացնում է VBA մեթոդ, որպեսզի դուք արագ լուծեք այս հարցը:

Excel- ում փոստ ուղարկելու այլ ձեռնարկներ ...


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (27)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալ եմ, դուք փրկում եք իմ կյանքը այս կաղապարով :D
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ֆավիո,
Ուրախ եմ օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Office 2016-ում հավելվածների հետ չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Քրիս
Ստորև բերված VBA կոդը կարող է օգնել ձեզ: Կոդը գործարկելուց հետո խնդրում ենք ընտրել էլփոստի հասցեներ պարունակող բջիջները, որոնց նամակներ կուղարկեք, այնուհետև ընտրեք այն ֆայլերը, որոնք պետք է կցեք էլ. Եվ Outlook-ի կանխադրված ստորագրությունը կցուցադրվի նաև էլփոստի մարմնում: Շնորհակալություն մեկնաբանության համար։

Sub SendEmailToAddressInCells()
Dim xRg որպես տիրույթ
Dim xRgAach As Range
Dim xRgVal Որպես տող
Dim xAddress As String
Dim xOutApp As Outlook.Application
Խոնավեցրեք xMailOut-ը որպես Outlook.MailItem
Ս.թ. սխալի Ռեզյումե Next
xAddress = ActiveWindow.RangeSelection.Address
Սահմանել xRg = Application.InputBox («Խնդրում ենք ընտրել էլփոստի հասցեների տիրույթը», «KuTools For Excel», xAddress, , , , , 8)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Դիմում. ScreenUpdating = Սուտ է
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xRg = xRg.SpecialCells (xlCellTypeConstants, xlTextValues)
Սահմանել xFileDlg = Application.FileDialog (msoFileDialogFilePicker)
Եթե ​​xFileDlg.Show = -1 Ապա
Յուրաքանչյուր xRgEach-ի համար xRg-ում
xRgVal = xRgEach.Value
Եթե ​​xRgVal Like «?*@?*.?*» Ապա
Սահմանել xMailOut = xOutApp.CreateItem (olMailItem)
XMailOut- ով
.Dուցադրել
.To = xRgVal
.Subject = «Թեստ»
.HTMLBody = "Սա փորձնական նամակ է, որն ուղարկվում է Excel-ով" & "
« & .HTMLBody
Յուրաքանչյուր xFileDlgItem-ի համար xFileDlg.SelectedItems-ում
.Կցորդներ.Ավելացնել xFileDlgItem
Հաջորդ xFileDlgItem
'.Ուղարկել
Վերջ
Վերջ: Եթե
հաջորդ
Սահմանեք xMailOut = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ ավելացնել Outlook-ի ստորագրությունը «կանխադրված» վերնագրով, բայց չեմ կարող թվալ, թե այն աշխատում է:
խնդրում եմ կարող եք օգնել Ես կարծում եմ, որ իմ «xMailout» տրամաբանությունը սխալ է։ սա իմ կասկածելի անսարք տարածքն է:

Մասնավոր ենթահրամանի կոճակ1_Click()

Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Dim xMailBody որպես տող
Խոնավեցրեք xMailOut-ը որպես Outlook.MailItem
Ս.թ. սխալի Ռեզյումե Next
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
xMailBody = «Ողջույններ.» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է» և vbNewLine & _
«Սա տող 3 է» և vbNewLine & _
«Սա տող 4 է»
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
.To = "Email.here.com"
.CC = «Email.here.com»
.Subject = "Email Title Here - " & Range("Cell#").արժեք
.Body = xMailBody
. Հավելվածներ.Ավելացնել ActiveWorkbook.FullName
Սահմանել xMailOut = xOutApp.CreateItem (olMailItem)
XMailOut- ով
.Dուցադրել
Վերջ
ActiveWorkbook.Save
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Ձեր սցենարը փոփոխվել է, խնդրում ենք փորձել: Շնորհակալություն.

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Dim xMailBody որպես տող
Խոնավեցրեք xMailOut-ը որպես Outlook.MailItem
Ս.թ. սխալի Ռեզյումե Next
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
xMailBody = «Ողջույններ.» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է» և vbNewLine & _
«Սա տող 3 է» և vbNewLine & _
«Սա տող 4 է»
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
.To = "Email.here.com"
.CC = «Email.here.com»
.Subject = "Email Title Here - " & Range("Cell#").Value
.Body = xMailBody
.Կցորդներ.Ավելացնել ActiveWorkbook.FullName
Սահմանել xMailOut = xOutApp.CreateItem (olMailItem)
XMailOut- ով
.Dուցադրել
Վերջ
Վերջ
ActiveWorkbook.Save
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես ավելացնել ստորագրություն, եթե մակրոն օգտագործվում է բազմաթիվ օգտվողների կողմից:
օրինակ իմ մակրոն կաշխատի ևս 3 հոգու կողմից: Այսպիսով, ինչպես կարող է մակրոն օգտագործել մակրո վարող օգտվողի ստորագրությունը:
շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
VBA կոդը կարող է ավտոմատ կերպով ճանաչել ուղարկողի Outlook-ի լռելյայն ստորագրությունը և Outlook-ի միջոցով էլփոստ ուղարկել իր իսկ ստորագրությամբ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​իմ հիմնական տեքստը կապված է excel-ի դաշտերից հանելու համար, տողի վերջում գտնվող & .HTMLBody-ի օգտագործումը ջնջում է ամբողջ հիմնական տեքստը և պարզապես թողնում է ստորագրությունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես դժվարանում եմ սա գործարկել excel 2016-ում: Ես ստանում եմ «Կազմելու սխալ. օգտագործողի կողմից սահմանված տեսակը սահմանված չէ» հաղորդագրությունը: Խնդրում ենք օգնել!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հոյակապ!!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ շնորհակալություն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես օգնության կարիք կունենամ իմ մակրոյով, ես պետք է սեղանի տակ տեղադրեմ Outlook ստորագրությունը, կարո՞ղ եք օգնել ինձ այդ հարցում:

Մասնավոր ենթահրամանի կոճակ1_Click()


Խամրած հայացքը որպես օբյեկտ
Նոր էլփոստի մթնեցումը որպես օբյեկտ
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject («Outlook.Application»)
Սահմանել newEmail = outlook.CreateItem(0)

Նոր էլփոստով
.To = Sheet5.Range («F1»)
.CC = ""
.BCC = ""
.Subject = Sheet5.Range(«B5»)
.Body = Sheet5.Range(«B41»)
.ցուցադրել

Սահմանեք xInspect = newEmail.GetInspector
Սահմանել pageEditor = xInspect.WordEditor

Sheet5.Range("B6:I7").Պատճենել

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

.ցուցադրել
Սահմանել pageEditor = Ոչինչ
Սահմանել xInspect = Ոչինչ
Վերջ

Սահմանել newEmail = Ոչինչ
Սահմանել հեռանկար = Ոչինչ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Բարա,
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի,
Կարող է ինչ-որ մեկը ինձ օգնել իմ VBA-ի հետ,
Ինձ պետք է ստորագրությունը ստեղծված էլ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր շնորհիվ ես հիմա կարող եմ ստորագրություն ավելացնել, բայց հետո այն վերացնում է տեքստի պարբերության միջև եղած բացերը: Խնդրում եմ, կարող եք օգնել ինձ:


Sub helloworld ()
Dim OutApp-ը որպես օբյեկտ
Մթնեցնել OutMail որպես օբյեկտ
Dim բջիջը որպես տիրույթ
Dim Path As String
Path = Application.ActiveWorkbook.Path
Set OutApp = CreateObject («Outlook.Application»)

Տարածքի յուրաքանչյուր բջիջի համար («C4:C6»)
Սահմանել OutMail = OutApp.CreateItem(0)
OutMail-ի հետ
.Dուցադրել
.To = cell.Value
.Subject = Բջիջներ (cell.Row, "D"): Արժեք
.HTMLBody = "Dear " & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
"Ջերմ ողջույններ" _
& vbNewLine & vbNewLine & _
«Մենք՝ JK Overseas-ը, կցանկանայինք օգտվել առիթից և ներկայացնել մեր JK Overseas ընկերությունը, որը վերջին 3 տարիների ընթացքում ներգրավված է աղի բիզնեսում: Ներկայումս մենք ուժեղ ենք ներքին և արտերկրում ընդլայնվող ոլորտում: Մենք ուտելի աղի մատակարարն ենք, Ջրի փափկեցնող աղ, սառցազրկող աղ, արդյունաբերական աղ» և «»: _
& vbNewLine & vbNewLine & _
«Մենք կապ ունենք Հնդկաստանի խոշոր արտադրողների հետ և նրանցից գնում ենք որակյալ աղ և արտահանում: Այսպիսով, մենք փնտրում ենք վստահելի փորձագետ ներկրող, ինչպես նաև դիստրիբյուտոր գործակալ՝ երկարաժամկետ բիզնես ստեղծելու համար՝ փոխադարձ շահով» և « »: _
& vbNewLine & vbNewLine & _
«Խնդրում ենք կապնվել մեզ հետ ձեր պահանջների կամ ցանկացած այլ հարցումների համար, որոնք կարող եք ունենալ: Մենք տրամադրում ենք հուսալի լոգիստիկա և ժամանակին առաքում: Մենք վստահ ենք, որ մեր ամենամրցունակ գները կհամապատասխանեն ձեր ակնկալիքներին» և «»: _
& vbNewLine & vbNewLine & _
.HTML մարմինը

'.Ուղարկել
Վերջ
Հաջորդ բջիջը
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ ինտեգրել այս կոդը այն ընթացիկ ձևաչափի մեջ, որն այժմ ունեմ, որի շնորհիվ կարող եմ ավտոմատացնել էլ. նամակները excel-ում` հիմնվելով մի շարք արժեքների վրա: Ցանկացած օգնություն, թե որտեղ պետք է ավելացնել «ստորագրության» կոդը այն, ինչ ես ներկայումս ունեմ, շատ կգնահատվի:

Public Sub CheckAndSendMail()

«Թարմացվել է Extendoffice 2018 / 11 / 22

Dim xRgDate As Range

Dim xRgSend as Range

Խոնավեցրեք xRgText-ը որպես տիրույթ

Dim xRgDone As Range

Dim xOutApp-ը որպես օբյեկտ

Dim xMailItem-ը որպես օբյեկտ

Dim xLastRow այնքան երկար

Dim vbCrLf As String

Dim xMailBody որպես տող

Dim xRgDateVal Որպես տող

Dim xRgSendVal որպես տող

Dim xMailSubject որպես տող

Dim I As Long

Ս.թ. սխալի Ռեզյումե Next

«Խնդրում ենք նշել ժամկետների տիրույթը

xStrRang = «D2:D110»

Սահմանել xRgDate = Range (xStrRang)

«Խնդրում ենք նշել հասցեատերերի էլ. հասցեների տիրույթը

xStrRang = «C2:C110»

Սահմանել xRgSend = Range (xStrRang)

xStrRang = «A2:A110»

Սահմանել xRgName = Range (xStrRang)

«Ձեր էլփոստում նշեք հիշեցված բովանդակությամբ տիրույթը

xStrRang = «Z2:Z110»

Սահմանել xRgText = Range (xStrRang)

xLastRow = xRgDate.Rows.Count

Սահմանել xRgDate = xRgDate (1)

Սահմանել xRgSend = xRgSend(1)

Սահմանել xRgName = xRgName (1)

Սահմանել xRgText = xRgText (1)

Սահմանեք xOutApp = CreateObject («Outlook.Application»)

I = 1-ի համար դեպի xLastRow

xRgDateVal = ""

xRgDateVal = xRgDate.Offset(I - 1).Value

Եթե ​​xRgDateVal <> "" Ապա

Եթե ​​CDate(xRgDateVal) - Ամսաթիվ <= 30 Իսկ CDate(xRgDateVal) - Ամսաթիվ > 0 Ապա

xRgSendVal = xRgSend.Offset(I - 1) Value

xMailSubject = « JBC ծառայության պայմանագրի ժամկետը լրանում է « & xRgDateVal

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & «Dear» & xRgName.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & ""

Սահմանել xMailItem = xOutApp.CreateItem(0)

xMailItem-ի հետ

.Subject = xMailSubject

Դեպի = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Dուցադրել

'.Ուղարկել

Վերջ

Սահմանել xMailItem = Ոչինչ

Վերջ: Եթե

Վերջ: Եթե

հաջորդ

Սահմանել xOutApp = Ոչինչ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դա իսկապես օգտակար ծածկագիր է
Ես պետք է փոխեմ տեքստի ձևաչափը աջից ձախ xOutMsg տողում
օգնեք խնդրում եմ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ Excel-ից առանձին թերթիկներ ուղարկել տարբեր էլ. Նաև պետք է կարողանամ ավելացնել իմ ստորագրության գիծը: Օգնությո՞ւն կա: Sub AST_Email_From_Excel()

Փակել էլփոստի հավելվածը որպես օբյեկտ
Փակել էլփոստի տարրը որպես օբյեկտ

Սահմանել emailApplication = CreateObject («Outlook.Application»)
Սահմանել emailItem = emailApplication.CreateItem(0)

Այժմ մենք կառուցում ենք էլ.

emailItem.to = Range("e2").Արժեք

emailItem.CC = Շրջանակ ("g2"). Արժեք

emailItem.Subject = «Չվերադարձված տեխնոլոգիական սարքավորումներ»

emailItem.Body = «Տես կցված աղյուսակը ձեր տարածքում չվերադարձված իրերի համար»

«Կցել ընթացիկ աշխատանքային գրքույկը
emailItem.Attachments.Add ActiveWorkbook.FullName

«Կցեք ցանկացած ֆայլ ձեր համակարգչից:
'emailItem.Attachments.Add ("C:\...)"

«Ուղարկեք նամակը
'emailItem.send

«Ցուցադրեք էլփոստը, որպեսզի օգտատերը կարողանա փոխել այն ըստ ցանկության, նախքան ուղարկելը
emailItem.Display

Սահմանել emailItem = Ոչինչ
Սահմանել էլփոստի հավելված = Ոչինչ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քրիս, Ձեր տրամադրած կոդը փոփոխվել է: Outlook-ի ստորագրությունն այժմ կարող է տեղադրվել հաղորդագրության մարմնի մեջ: Խնդրում եմ, փորձեք: Շնորհակալություն. Ենթ AST_Email_From_Excel()
«Թարմացվել է Extendoffice 20220211
Փակել էլփոստի հավելվածը որպես օբյեկտ
Փակել էլփոստի տարրը որպես օբյեկտ
Սահմանել emailApplication = CreateObject («Outlook.Application»)
Սահմանել emailItem = emailApplication.CreateItem(0)

Այժմ մենք կառուցում ենք էլ.
emailItem.Display «Ցուցադրել էլփոստը, որպեսզի օգտվողը կարողանա փոխել այն ըստ ցանկության, նախքան ուղարկելը
emailItem.to = Range("e2").Արժեք
emailItem.CC = Շրջանակ ("g2"). Արժեք
emailItem.Subject = «Չվերադարձված տեխնոլոգիական սարքավորումներ»
emailItem.HTMLBody = "Տես կցված աղյուսակը ձեր տարածքում չվերադարձված իրերի համար" & " « & emailItem.HTMLBody

«Կցել ընթացիկ աշխատանքային գրքույկը
emailItem.Attachments.Add ActiveWorkbook.FullName

Սահմանել emailItem = Ոչինչ
Սահմանել էլփոստի հավելված = Ոչինչ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Կրիստալ, շնորհակալություն ստորագրությունը ավելացնելու համար, կարծես թե նրան դուր չի գալիս HTMLBody բաժինը: Երբ ես գործարկում եմ մակրո, այն վրիպազերծվում է emailItem-ում:HTMLBody = «Տես կցված աղյուսակը ձեր տարածքում չվերադարձված տարրերի համար» & « " & emailItem.HTMLBodyand չի ավարտում մնացածը:  
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Excel-ի ո՞ր տարբերակն եք օգտագործում: Հետևյալ VBA կոդը նույնպես կարող է օգնել: Խնդրում եմ փորձեք: Շնորհակալություն Ձեր արձագանքի համար: Sub Send Worksheet ()
«Թարմացվել է Extendoffice 20220218
Խոնավեցրեք xFile-ը որպես տող
Dim xFormat As Long
Dim Wb որպես աշխատանքային գրքույկ
Dim Wb2 որպես աշխատանքային գրքույկ
Dim FilePath-ը որպես տող
Մթնեցրեք ֆայլի անունը որպես տող
Dim OutlookApp-ը որպես օբյեկտ
Մթնեցրեք OutlookMail-ը որպես օբյեկտ
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Սահմանել Wb2 = Application.ActiveWorkbook
Ընտրեք Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
Եթե ​​Wb2.HasVBProject Ապա
xFile = «.xlsm»
xFormat = xlOpenXMLWorkbookMacroEnabled
Ուրիշ
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Վերջ: Եթե
Case Excel8:
xFile = «.xls»
xFormat = Excel8
Գործ xlExcel12:
xFile = «.xlsb»
xFormat = xlExcel12
Վերջ ընտրեք
FilePath = Environ$("temp") & "\"
Ֆայլի անունը = Wb.Անուն և ձևաչափ (այժմ՝ «dd-mmmm-yy h-mm-ss»)
Սահմանել OutlookApp = CreateObject («Outlook.Application»)
Սահմանել OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Շրջանակ ("e2") & " ; " & ընդգրկույթ ("g2")
OutlookMail-ի հետ
.Dուցադրել
Դեպի = Շրջանակ ("e2")
.CC = միջակայք («g2»)
.BCC = ""
.Subject = «Չվերադարձված Techquidation Equipment»
.HTMLBody = "Տես կցված աղյուսակը ձեր տարածքում չվերադարձված իրերի համար" & " « & .HTMLBody
.Կցորդներ.Ավելացնել Wb2.FullName
'.Ուղարկել
Վերջ
Wb2.Փակել
Սպանեք FilePath-ը և FileName-ը և xFile-ը
Սահմանեք OutlookMail = Ոչինչ
Սահմանեք OutlookApp = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծես թե Excel 2016 և VBA 7.1 են
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Oi Cristal, մի փոքր մակրո, որը կարող է կարգավորվել էլեկտրոնային փոստով, com imagens e formatação բնօրինակը: Como consigo լուծու՞մ:

Sub Geraremail ()

Dim OLapp As Outlook.Application
Դիմ ժանելան որպես Outlook.MailItem

Սահմանել OLapp = New Outlook.Application
Սահմանել janela = OLapp.CreateItem(olMailItem)

Arquivo01 = «Mapa AN»
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Ջանելայի հետ
ActiveWorkbook.Save
.Dուցադրել
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("Base").Range("A5").Value
.Թեմա = «Mapa - Acrilo» & Ձևաչափ (Ամսաթիվ, «dd.mm.yy»)
assinatura = .Մարմին
.Body = «Prezados/as», & Chr(10) & Chr(10) & «Segue anexo o Mapa de Acrilonitrila-ն դիտարկել որպես S&OP-ի կանխատեսումներ: & Chr(10) & Chr(10) & assinatura
.Կցորդներ.Ավելացնել Anexo01
Վերջ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Com a mudança abaixo, consegui ajustar. Porém a letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, como posso alterar o codigo?

Sub Geraremail ()

Dim OLapp As Outlook.Application
Դիմ ժանելան որպես Outlook.MailItem

Սահմանել OLapp = New Outlook.Application
Սահմանել janela = OLapp.CreateItem(olMailItem)

Arquivo01 = «Mapa AN»
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Ջանելայի հետ
ActiveWorkbook.Save
.Dուցադրել
.To = Sheets("Base").Range("A2").Value
.CC = Sheets("Base").Range("A5").Value
.Թեմա = «Mapa - Acrilo» & Ձևաչափ (Ամսաթիվ, «dd.mm.yy»)
assinatura = .Մարմին
.HTMLBody = «Prezados/as», & Chr(10) & Chr(10) & «Segue anexo o mapa de Acrilonitrila-ն դիտարկել որպես S&OP-ի կանխատեսումներ: &" « & .HTMLBody
.Կցորդներ.Ավելացնել Anexo01
Վերջ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Միլա,
Հետևյալ VBA կոդը կարող է օգնել ձեզ փոխել էլփոստի մարմնի տառատեսակը Calibri-ի, խնդրում ենք փորձել: Շնորհակալություն.
Նախքան կոդը գործարկելը, դուք պետք է սեղմեք Գործիքներ > Մանրամասն է Microsoft Visual Basic հավելվածների համար պատուհանը, այնուհետև ստուգեք Microsoft Word օբյեկտի գրադարան վանդակում Հղումներ - VBAProject երկխոսության տուփ, ինչպես ստորև ներկայացված սքրինշոթը:
[img]I:\工作\周雪明\2022年工作\6月份\文章评论截图\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Միլա,
Հետևյալ VBA կոդը կարող է օգնել ձեզ փոխել էլփոստի մարմնի տառատեսակը Calibri-ի, խնդրում ենք փորձել: Շնորհակալություն.
Նախքան կոդը գործարկելը, դուք պետք է սեղմեք Գործիքներ > Մանրամասն է Microsoft Visual Basic հավելվածների համար պատուհանը, այնուհետև ստուգեք Microsoft Word օբյեկտի գրադարան վանդակում Հղումներ - VBAProject երկխոսության տուփ, ինչպես կցված ֆայլը, որը ներկայացված է ստորև:
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից