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

Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:

Ենթադրելով, որ դուք պետք է նամակ ուղարկեք Outlook- ի միջոցով, սեղմելով Excel- ի աշխատանքային թերթիկի կոճակը, ինչպե՞ս կարող եք դա անել: Այս հոդվածը կներկայացնի VBA մեթոդ ՝ դրան մանրամասնորեն հասնելու համար:

Ուղարկեք էլ. Փոստ, եթե կոճակը կտտացնում են VBA կոդով


Ուղարկեք էլ. Փոստ, եթե կոճակը կտտացնում են VBA կոդով

Outlook- ի միջոցով էլ-նամակ ուղարկելու համար կատարեք հետևյալը ՝ եթե Excel աշխատանքային գրքում կտտացվում է հրամանի կոճակը:

1. Տեղադրեք հրամանի կոճակ ձեր աշխատանքային էջում ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,

2. Աջ կտտացրեք տեղադրված հրամանի կոճակին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:

3. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք փոխարինել սկզբնական կոդը Code պատուհանում հետևյալ VBA գրով:

VBA կոդ. Ուղարկեք էլ. Փոստ, եթե Excel- ում կտտացնում են կոճակը

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Notes:

1) Խնդրում ենք փոխել էլ. Փոստի մարմինը, ինչպես ձեզ հարկավոր է xMailBody տող ծածկագրում:

2) Փոխարինեք Էլեկտրոնային հասցե ստացողի էլ. փոստի հասցեին համապատասխան . To = "Էլ. Փոստի հասցե".

3) Նշեք Cc և Bcc ստացողների համար, որքան ձեզ հարկավոր է .CC = «» և .Bcc = «» բաժիններում

4) Փոխեք էլփոստի թեման տողում .Subject = "Փորձեք նամակն ուղարկել կոճակի կտտոցով".

4. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

5. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ, Տեսեք,

Այսուհետ, ամեն անգամ, երբ կտտացնում եք Հրամանի կոճակը, էլփոստը կստեղծվի ինքնաբերաբար ՝ նշված հասցեատերերի, առարկայի և մարմնի հետ: Խնդրում ենք ուղարկել էլ-նամակը `կտտացնելով ուղարկել կոճակը:

ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:

Outlook- ի միջոցով հեշտությամբ նամակ ուղարկեք ՝ հիմնված Excel- ում ստեղծված փոստային ցուցակի դաշտերի վրա.

The Ուղարկել նամակներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ օգնում է էլփոստ ուղարկել Outlook- ի միջոցով ՝ հիմնված Excel- ում ստեղծված փոստային ցուցակի դաշտերի վրա:
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (73)
Գնահատված 3.5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես ցանկանում եմ ուղարկել տվյալներ առանցքային աղյուսակի տվյալներից, խնդրում եմ օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է սկրիպտը գրել այնպես, որ կոճակը սեղմելիս այն կցվի էլփոստին, ինչպես վերևում է, բայց կոճակը նույնպես հանի: այնպես որ էլեկտրոնային փոստով ուղարկվող ֆայլի պատճենն այլևս կոճակը չունի դրա վրա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հենց «.Body = xMailBody»-ի տակ ավելացրեք հետևյալը
.Կցորդներ.Ավելացնել ActiveWorkbook.FullName
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Դանի:

Ես ավելացրել եմ հատվածը, ինչպես դուք ասացիք, բայց կցված աշխատանքային գրքույկով էլփոստի կոճակները դեռ միացված են:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, հնարավո՞ր է այնպես կարգավորել, որ ես ստիպված չլինեմ սեղմել ուղարկել, այն ավտոմատ կերպով ուղարկում է նամակը????
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Խնդրում ենք փոխարինել տողը .Ցուցադրել .Ուղարկեք վերևում գտնվող VBA կոդով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն ստեղծում է միայն մեկ էլ.փոստ և կշարունակի վերագրել բովանդակությունը՝ բազմապատկվող էլ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն բոլորին, նախ մեծ շնորհակալություն, այս գրառումը շատ օգտակար է և աշխատում է հավելվածի համար: Սա աշխատում է ինձ համար, բայց ոչ մի թարմացում չի պահպանվում թերթում, դուք պետք է սեղմեք «պահպանել» կոճակը: Ես կցանկանայի, որ հավելվածում լինի այն, ինչ ներկայումս գտնվում է excel թերթում:

Ես կարող եմ դա անել՝ օգտագործելով Excel-ի ներկառուցված էլփոստի հնարավորությունը, բայց ես ուզում էի կոճակ ունենալ, քանի որ ինձ անհրաժեշտ է կոշտ կոդավորել կոնկրետ էլփոստի հասցեն:

Այսպիսով, ամփոփելով, ես կցանկանայի իմանալ.

Կցանկանայի իմանալ՝ կա՞ միջոց, երբ օգտատերը կբացի excel աշխատանքային գրքույկը և կատարի խմբագրումներ, արդյոք կոճակը կպահի հավելվածը թարմացումների հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Կոդը օպտիմիզացված է։ Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Մասնավոր ենթահրամանի կոճակ1_Click()
«Թարմացվել է Extendoffice 2017 / 9 / 14
Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Dim xMailBody որպես տող
Ս.թ. սխալի Ռեզյումե Next
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
ActiveWorkbook.Save
xMailBody = «Մարմնի բովանդակություն» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է»
Ս.թ. սխալի Ռեզյումե Next
xOutMail-ի հետ
. To = "Էլ. Փոստի հասցե"
.CC = ""
.BCC = ""
.Subject = "Փորձեք նամակն ուղարկել կոճակի կտտոցով"
.Body = xMailBody
.Կցորդներ.Ավելացնել ActiveWorkbook.FullName
.Ցուցադրել կամ օգտագործել .Ուղարկել
Վերջ
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ Active Workbook-ը կցել էլփոստին, երբ սեղմում եմ կոճակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Հենց «.Body = xMailBody»-ի տակ ավելացրեք հետևյալը
.Կցորդներ.Ավելացնել ActiveWorkbook.FullName
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Teria como em vez de enviar a planilha, enviar as informações em imagem?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
օգտագործելով այս VBA կոդը, կարո՞ղ եմ հղում կատարել էլեկտրոնային փոստի բովանդակության բջջային տեղեկատվությանը: Օրինակ, ինչպե՞ս կարող եմ հղում կատարել բջիջների արժեքներին ստորև նշված ծածկագրին:

xMailBody = «Մարմնի բովանդակություն» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է»

Նաև՝ օգտագործելով (.TO = «էլ․ հասցե») կոդը։ ինչպես կարող եմ ունենալ «էլ․ հասցեն»՝ կողքի սյունակում գտնվող բջիջից էլփոստի հասցե դուրս բերելու համար:


Thanks,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է ավելացնել էլփոստի երկրորդ կոճակը նույն աշխատաթերթում: Երբ ես փորձում եմ դա անել, այն միանում է կոդի հետ բնօրինակ էլփոստի կոճակից: շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Յուրաքանչյուր կոճակին պետք է տարբեր կոդեր նշանակեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
օգտագործելով այս VBA կոդը, կարո՞ղ եմ հղում կատարել էլեկտրոնային փոստի բովանդակության բջջային տեղեկատվությանը: Օրինակ, ինչպե՞ս կարող եմ հղում կատարել բջիջների արժեքներին ստորև նշված ծածկագրին:

xMailBody = «Մարմնի բովանդակություն» & vbNewLine & vbNewLine & _
«Սա տող 1 է» և vbNewLine & _
«Սա տող 2 է»

Thanks,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Գլեն,
Խնդրում ենք կիրառել հետևյալ կոդը. Շնորհակալություն մեկնաբանության համար։
xMailBody = [B5]
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է, որ նամակում կցորդն ուղարկելու փոխարեն, հիպերհղում ուղարկել ֆայլին (գտնվում է SharePoint-ում):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Լորի,
Չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ լարով հղում կատարել առարկայի բջջի արժեքին: Ստորև բերվածի որոշ տատանումներ:

.Subject = "Նոր իրադարձություն." & Target.Address = "$B$38"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Աբի,
Խնդրում ենք փոխել կոդը .Subject = "New Event:" & [B38]:
Շնորհակալություն մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi There,
Կարո՞ղ է որևէ մեկը օգնել ինձ հետևյալ պահանջի վերաբերյալ:
Ես ունեմ Excel թերթիկ, որն ունի երկու բացվող ցուցակ:

1 բացվող ցուցակ՝ բաժինների ցանկ

2 բացվող ցուցակ- կատեգորիա

Ես ուզում եմ, երբ ցուցակներից ընտրում եմ բաժին և կատեգորիա; (օրինակ, եթե ես ընտրում եմ «վաճառքներ» բաժնում և «ամսական հաշվետվություն» կատեգորիայում)

Ես պետք է էլեկտրոնային փոստով ուղարկեմ այդ աշխատանքային թերթիկի PDF տարբերակը վաճառքի թիմին՝ էլփոստի թեման՝ ամսական հաշվետվություն:

Եթե ​​ես ընտրում եմ «արտադրությունը» բաժնի ցանկից, էլփոստը պետք է ուղարկվի արտադրության մի խումբ մարդկանց:

Ես շնորհակալ եմ, եթե դուք կարող եք օգնել ինձ այս հարցում

Ռասիկեն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռասիկե,
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում: Բարի գալուստ ցանկացած հարց տեղադրել մեր ֆորումում. https://www.extendoffice.com/forum.html Excel-ի մասնագետներից կամ Excel-ի այլ երկրպագուներից ավելի շատ Excel աջակցություն ստանալու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ինչպե՞ս կարող եմ ստանալ փոստը, որպեսզի ավտոմատ կերպով իմ ստորագրությունն ավելացվի outlook-ից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi John,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Շնորհակալություն ձեր մեկնաբանության համար:

Մասնավոր ենթահրամանի կոճակ1_Click()
«Թարմացվել է Extendoffice 2019 / 6 / 26
Dim xOutApp-ը որպես օբյեկտ
Խոնավեցրեք xOutMail-ը որպես օբյեկտ
Ս.թ. սխալի Ռեզյումե Next
Սահմանեք xOutApp = CreateObject («Outlook.Application»)
Սահմանել xOutMail = xOutApp.CreateItem(0)
xOutMail-ի հետ
.Ցուցադրել կամ օգտագործել .Ուղարկել
. To = "Էլ. Փոստի հասցե"
.CC = ""
.BCC = ""
.Subject = "Փորձեք նամակն ուղարկել կոճակի կտտոցով"
.HTMLBody = "Սա փորձնական նամակ է, որն ուղարկվում է Excel-ով" & "
« & .HTMLBody
'.Ուղարկել
Վերջ
Սխալի դեպքում GoTo 0
Սահմանել xOutMail = Ոչինչ
Սահմանել xOutApp = Ոչինչ
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Էլփոստ ուղարկելու համար կոճակը սեղմելիս պետք է լինե՞ք Excel-ի օգտատեր: կամ պարզապես նամակ ստացողը պետք է լինի Outlook-ի օգտատեր:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Քանի որ Excel-ի կոճակը սեղմելուց հետո էլփոստը պետք է ուղարկվի Outlook-ի միջոցով, դուք պետք է Outlook-ը տեղադրված լինի ձեր համակարգչում, որպեսզի այն աշխատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ ուղարկել excel աշխատանքային թերթիկը էլ. փոստով, բայց այն չի ուղարկում: Ինչպե՞ս եք գրում կոդ՝ փաստաթուղթն էլփոստ ուղարկելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մարկուս,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը:

Sub Send Worksheet ()
«Թարմացնել 20190626
Խոնավեցրեք 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
OutlookMail-ի հետ
.Դեպ = "skyyang @extendoffice.com »
.CC = ""
.BCC = ""
.Tubject = "kte հատկությունները"
.Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"
.Կցորդներ.Ավելացնել Wb2.FullName
.Dուցադրել
'.Ուղարկել
Վերջ
Wb2.Փակել
Սպանեք FilePath-ը և FileName-ը և xFile-ը
Սահմանեք OutlookMail = Ոչինչ
Սահմանեք OutlookApp = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ ակտիվ աշխատաթերթը կցել էլփոստին, երբ սեղմում եմ կոճակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Գրանտ,
Խնդրում ենք սեղմեք աջ կոճակի վրա և ընտրեք Դիտել կոդը, այնուհետև պատճենեք ներքևի ծածկագիրը Անձնական ենթախմբի և Վերջի ենթագծերի միջև: Հուսով եմ, որ կարող եմ օգնել: Շնորհակալություն ձեր մեկնաբանության համար:

Խոնավեցրեք 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
OutlookMail-ի հետ
.Դեպ = "skyyang @extendoffice.com »
.CC = ""
.BCC = ""
.Tubject = "kte հատկությունները"
.Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"
.Կցորդներ.Ավելացնել Wb2.FullName
.Dուցադրել
'.Ուղարկել
Վերջ
Wb2.Փակել
Սպանեք FilePath-ը և FileName-ը և xFile-ը
Սահմանեք OutlookMail = Ոչինչ
Սահմանեք OutlookApp = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ֆայլի անունը փոխելու միջոց կա՞ ընթացիկ ամսաթվին, երբ այն կցվում է էլ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,

Ես սավանի վրա եմ աշխատել, բայց չեմ կարողանում ավարտել։ Հուսով եմ, որ դուք կարող եք օգնել ինձ :)

Ֆայլն ինքն իրեն պետք է լինի xltm (կաղապար) և այն պետք է կցի թերթիկը ինքն իրեն փոստում:

Եվ ավտոմատ ստորագրություն, ապա ես շատ ուրախ կլինեմ:

Կանխավ շնորհակալություն / Dr. Նանգ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես վարում եմ աղյուսակ 80 անհատական ​​շտրիխ հաշիվներով և մեծ հաջողությամբ օգտագործել եմ VBA կոդը այս էջում: Այնուամենայնիվ, էլփոստի տեքստում ես կցանկանայի պատճենել և տեղադրել հաշվի բջիջների հատուկ տիրույթը ուղարկելիս, որպեսզի հաճախորդը կարողանա պատմություն ունենալ: Կարո՞ղ եք օգնել դրա համար VBA կոդով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Շատ շնորհակալ եմ սրա համար: Դա ֆանտաստիկ օգնություն էր:

Հնարավո՞ր է ակտիվ աշխատանքային թերթիկ ուղարկել ամբողջական աշխատանքային գրքույկի փոխարեն կոճակ սեղմելով:

Thanks!
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More

Հետեւեք մեզ

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