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

Ինչպե՞ս ուղարկել աշխատաթերթ միայն Excel- ի Outlook- ի միջոցով:

Եթե ​​ցանկանում եք Excel- ում աշխատանքային գրքից էլեկտրոնային փոստով ուղարկել մեկ աշխատանքային թերթ Outlook- ի միջոցով, կարող եք ուղարկել աշխատանքային թերթը որպես հավելված, որպես մարմնի պարունակություն կամ որպես PDF ֆայլ: Բայց Excel- ում այս խնդրի լուծման համար կա՞ն ավելի արագ եղանակներ:

Ուղարկեք էլեկտրոնային փոստի ստացողի հրամանի միջոցով Excel- ից ուղարկել մեկ աշխատանքային թերթիկ որպես մարմին

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես հավելված

Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես PDF ֆայլ


նետ կապույտ աջ պղպջակ Ուղարկեք էլեկտրոնային փոստի ստացողի հրամանի միջոցով Excel- ից ուղարկել մեկ աշխատանքային թերթիկ որպես մարմին

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

Եթե ​​օգտագործում եք Excel 2007, 2010 կամ 2013 թվականները, ապա անհրաժեշտ է ավելացնել դրանք Ուղարկել փոստի ստացողին հրաման Արագ մուտք Գործիքադարակը առաջին.

1, Կտտացրեք պատկերակի վրա Անհատականացրեք Արագ մուտքի Գործիքադարակըեւ ընտրեք Ավելի շատ հրամաններ, տես նկարի նկարը.

doc-email-sheet1

2. Եվ է Excel ընտրանքներ երկխոսության վանդակում, ընտրեք Հրամաններ ոչ ժապավենով է Ընտրեք հրամաններ բացվող ցուցակը, ապա ընտրեք Ուղարկել փոստի ստացողին տարբերակը և սեղմեք Ավելացնել >> կոճակը ՝ այս հրամանն ավելացնելու համար, վերջապես կտտացրեք OK այս պարամետրը պահպանելու համար: Տեսեք,

doc-email-sheet2

3. The Ուղարկել փոստի ստացողին հրամանը տեղադրվել է Արագ մուտք Գործիքադարակը, տես նկարի նկարը.

doc-email-sheet3

4, Դրանից հետո կտտացրեք սա Ուղարկել փոստի ստացողին պատկերակի կոճակը, և արագ տուփը դուրս է գալիս E-mail արագ տուփ, ստուգեք Ուղարկեք ընթացիկ թերթը որպես հաղորդագրության մարմինեւ սեղմեք OK, Տեսեք,

doc-email-sheet4

5, Եվ էլփոստի խմբագրման վանդակը ցուցադրվում է աշխատանքային թերթի տվյալների վերևում, դուք կարող եք մուտքագրել ձեր ստացողներին, թեման և ներածումը համապատասխան տեքստի վանդակում: Տեսեք,

doc-email-sheet5

6. Այնուհետեւ կտտացրեք Ուղարկիր այս Շիինt ուղարկել այս ակտիվ աշխատանքային թերթը որպես հաղորդագրության մարմին ձեր կոնկրետ անձին:


նետ կապույտ աջ պղպջակ Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես հավելված

Եթե ​​ցանկանում եք էլեկտրոնային փոստով ուղարկել ակտիվ աշխատանքային թերթը որպես հավելված, հետևյալ VBA կոդը կարող է լավություն բերել ձեզ:

1, Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք ուղարկել:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Excel- ից ուղարկեք ընթացիկ աշխատանքային թերթը որպես հավելված

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

ՆշումՎերոնշյալ ծածկագրում հետևյալ տեղեկատվությունը կարող եք փոխել ձեր իսկ կարիքների համար:

  • .Դեպ = "skyyang @extendoffice.com »
  • .CC = ""
  • .BCC = ""
  • .Tubject = "kte հատկությունները"
  • .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"

4. Այնուհետեւ կտտացրեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ պատուհանը դուրս կգա, կտտացրեք Թույլ տալ երբ առաջընթացի տողն ավարտված է, և ապա ընթացիկ աշխատանքային թերթը ուղարկվել է ձեր ստացողին ՝ որպես հավելված:

doc-email-sheet6


նետ կապույտ աջ պղպջակ Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես PDF ֆայլ

Երբեմն անհրաժեշտ է, որ ձեր աշխատանքային թերթի հաշվետվությունն ուղարկեք ուրիշներին, բայց չեք ուզում, որ ուրիշները փոփոխեն այն: Այս դեպքում Excel- ից կարող եք ուղարկել աշխատանքային թերթը որպես PDF ֆայլ:

1. Ակտիվացրեք ձեր աշխատանքային թերթը, որը ցանկանում եք ուղարկել:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Excel- ից ուղարկեք ընթացիկ աշխատանքային թերթը որպես PDF ֆայլ

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Նշում. Վերոնշյալ ծածկագրում հետևյալ տեղեկությունները կարող եք փոխել ձեր պահանջի:

  • .Դեպ = "skyyang @extendoffice.com »
  • .CC = ""
  • .BCC = ""
  • .Tubject = "kte հատկությունները"
  • .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"

4, Դրանից հետո սեղմեք F5 ստեղնը, և հուշման վանդակը դուրս կգա, կտտացրեք Թույլ տալ առաջընթացի սանդղակի ֆինանսավորումից հետո, ապա ակտիվ աշխատանքային թերթը ուղարկվել է կոնկրետ անձին ՝ որպես PDF ֆայլ:

doc-email-sheet6

Նշումներ:

1. Այս մեթոդները մատչելի են միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր փոստային ծրագիր:

2. Ընթացիկ աշխատանքային թերթն ուղարկելուց հետո կարող եք գնալ ձեր Outlook ՝ համոզվելու, որ էլփոստը հաջողությամբ ուղարկվել է:


Ստեղծեք փոստային ցուցակ, ապա ուղարկեք էլ

The Excel- ի համար նախատեսված գործիքներ's Ստեղծեք փոստային ցուցակ և ուղարկել Emails Կոմունալ ծառայությունները կարող են արագ ստեղծել փոստային ցուցակ աշխատանքային թերթում, ապա ուղարկել նույն թեման, նույն բովանդակությունը և նույն կցորդները բազմաթիվ էլ. հասցեներին:
փաստաթղթերի փոստային ցուցակ 1
doc սլաքը ներքև
փաստաթղթերի փոստային ցուցակ 2

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

Ինչպե՞ս ուղարկել ընթացիկ աշխատանքային գիրքը Excel- ի միջոցով Outlook- ի միջոցով:

Ինչպե՞ս ուղարկել / էլ. Փոստի բջիջների շարք ուղարկել 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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (31)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եք ավելացնել բազմաթիվ հասցեատերեր երկրորդ օրինակում՝ օգտագործելով VBA կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա աշխատում է, բայց ինչպե՞ս կարող ենք ավտոմատ կերպով ավելացնել ուղարկողին cc-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես օգտագործում եմ VBA կոդը՝ որպես pdf ուղարկելու համար, նամակը լավ է ուղարկվում, սակայն հավելված չկա: Ի՞նչ եմ ես սխալ անում։ Շնորհակալություն, Չանդա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք սրա համար պատասխան եք ստացել: Ես նույնպես ունեմ նույն դժվարությունը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես ուզում եմ ուղարկել միայն ընտրված բջիջները excel-ի հրամանի կոճակի միջոցով դեպի անդորրագրեր Outlook-ի միջոցով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կցել եմ ուղարկել նամակ ստացողին, բայց այն ակտիվացված չէ, երբ սեղմում եմ Excel-ն ուղարկելու համար: Ի՞նչ եմ ես սխալ անում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ ուղարկել բազմաթիվ անունների տիրույթներ տվյալ աշխատանքային գրքույկներում որպես PDF՝ Outlook-ի միջոցով: Բազմաթիվ աշխատանքային գրքույկների բացման և փակման ավտոմատացում: Ես վստահ չեմ, թե ինչպես կարելի է փոփոխել ստորև նշված կոդը, որը հիանալի է աշխատում՝ նոութբուքի բոլոր նոր տարբերակներով աշխատաթերթ ուղարկելով: Ես ամեն գիշեր բազմաթիվ հաշվետվություններ էի ուղարկում իմ աշխատասեղանից Windows 7 Excel և Outlook 10 Adobe Acrobat Pro 10 և փորձում էի վերակազմավորել նույնը անել նոութբուքում Windows 8.1 Office 15-ի և Adobe Acrobat Xl-ի արդիականացված տարբերակներով: Աշխատանքային թերթիկներ ուղարկելու ձեր առաջարկած կոդերը Sub SendWorkSheetToPDF() 'Թարմացնել 20131209 Dim Wb-ը որպես աշխատանքային գրքույկ Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Error Resume Next Set Wb = Application.Application.AbRe. FileName, ".") If xIndex > 1 Ապա FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=Fail=xlT: FileName Set OutlookApp = CreateObject("Outlook.Application") Սահմանել OutlookMail = OutlookApp.CreateItem(0) OutlookMail .To = "jbristow1@gmail.com" .CC = "" .BCC = "" .Subject = "Outlook" .Body = «Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը»: .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ջիմ, Դուք պետք է ավելացնեք. էլփոստի հասցեի հետևում և ավելացրեք մեկ այլ, տես ստորև բերված օրինակը. To = "jbristow1@gmail.com; someone@gmail.com; onemoreperson@gmail.com"
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես օգտագործում եմ այս կոդը, բայց ուղարկելիս որևէ խնդիր ունեմ: Դա մեծ խնդիր չէ, բայց դա ինձ դուր չի գալիս :-) Ես նախ ավտոմատ կերպով պահում եմ ֆայլը որոշակի վայրում VBA-ի միջոցով, նախքան ֆայլը փոստով ուղարկելը: Ֆայլն արդեն ունի .xlsx-ով վերջացող անուն: Ֆայլը էլ. Որևէ մեկը գիտի՞, արդյոք ես կարող եմ դա անտեսել պահելը մինչև այն ուղարկելը որպես հավելված: Ես արդեն պահել եմ այն ​​մինչև ուղարկելը... Շնորհակալություն,
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ վերը նշված երկրորդ օրինակը՝ աշխատանքային գրքույկից մեկ թերթ ուղարկելու համար, բայց այն ուղարկում է ամբողջ աշխատանքային գիրքը: Ես պատճենեցի վերը նշված օրինակը, և միակ մասը, որը ես փոխեցի, էլփոստի հասցեն էր: Ես վստահ չեմ, թե ինչն է սխալ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործում եմ վերը նշված կոդը՝ մեկ թերթիկ ուղարկելու համար որպես excel հավելված, խնդիրն այն է, որ այն ուղարկում է ամբողջ աշխատանքային գրքույկը, այլ ոչ թե մեկ աշխատաթերթ: Ես փոխել եմ միայն էլփոստի «To», «Subject» և «Body» տառերը: Ես վստահ չեմ, թե ինչն է սխալ եղել: Օգնեք խնդրում եմ: :sad:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ես օգտագործում եմ վերը նշված կոդը՝ մեկ թերթիկ ուղարկելու համար որպես excel հավելված, խնդիրն այն է, որ այն ուղարկում է ամբողջ աշխատանքային գրքույկը, այլ ոչ թե մեկ աշխատաթերթ: Ես փոխել եմ միայն էլփոստի «To», «Subject» և «Body» տառերը: Ես վստահ չեմ, թե ինչն է սխալ եղել: Օգնեք խնդրում եմ: :sad:Ջանեթի կողմից[/quote] Ողջույն, խնդրում եմ, ասեք ինձ ձեր Office-ի և համակարգչային համակարգի տարբերակի մասին տեղեկությունները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես օգտագործում եմ Office 2010 և Windows 7: Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Ողջույն, ես օգտագործում եմ Office 2010 և Windows 7: Շնորհակալություն:Ջանեթի կողմից[/quote] Ողջույն, այս VBA-ն նորմալ է Office 2010-ի հետ Windows 7-ում: Խնդրում ենք համոզվել, որ բացել եք ձեր Outlook-ը, նախքան այս VBA-ն գործարկելը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ օգտագործել այս կոդը՝ մեկ աղյուսակ ուղարկելու համար՝ օգտագործելով անձամբ ստեղծված կաղապարի *.ost ֆայլը, որը գտնվում է c:\ սկավառակի վրա: Թվում է, թե չեմ կարող հասկանալ, թե ինչպես հարմարեցնել վերը նշված կոդը դրա համար: Կա՞ն ցուցումներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ուղարկեք մեկ աշխատանքային թերթիկ որպես հավելված Excel-ից VBA կոդով. Excellent VBA Code: Աշխատում է ՀԻԱՍՏ!!! Շնորհակալություն!!! :-) To: & CC: էլ. նամակները ձեռքով մուտքագրելու փոխարեն, ես ուզում եմ էլփոստի հասցեները հանել առանձին աշխատաթերթից, որը կոչվում է «E-Mail List»: (a1)-ն ունի «Դեպի» էլեկտրոնային փոստի հասցեն, իսկ (b1) ունի «CC» էլփոստի հասցեն: Ես գիտեմ, որ դա համեմատաբար հեշտ է լուծել, բայց ես չեմ կարող հասկանալ, թե ինչ եմ անում սխալ: Կանխավ շնորհակալ եմ բոլորից։ Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat With OutlookMail .To = "skyyang@extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը։" .Attachments.Add Wb2.FullName .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Ոչինչ չի սահմանվել OutlookApp = Ոչինչ Application.ScreenUpdating = True End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես օգտագործում եմ ավտոմատացման գործընթաց իմ ընկերությունում, ես պետք է թարմացնեմ իմ ամբողջ համակարգիչը excel-ով և outlook 2010-ով, ես Windows xp-ում ունեմ կոդ, որով ես ուղարկում եմ թերթիկ, օգտագործելով outlook Express կոդը, լավ է աշխատում xp-ում, բայց հիմա ես պետք է թարմացնեք այն Windows 7-ով: Ես շատ եմ փորձել, բայց չեմ կարող թերթիկ ուղարկել, ուստի խնդրում եմ օգնեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Մակրոն ինձ համար լավ է աշխատում: Ես նախկինում երբեք չեմ օգտագործել մակրոներ, ուստի, խնդրում եմ, որևէ մեկը կարող է ինձ ճիշտ ուղղությամբ դնել. ես փորձում եմ սա ուղարկել մեկից ավելի մարդկանց, բայց չգիտեմ, թե ինչպես տեղադրել լրացուցիչ էլփոստի հասցեներ մակրոյի «դեպի» բաժնում: Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ես ֆրանսիացի եմ, կներեք իմ անգլերենի համար: Ինչպե՞ս է հնարավոր իմ թերթիկի արժեքի բջիջը դնել .too/ .CC-ում ... կարծում եմ՝ սա նման է. Sub SendWorkSheet() «Թարմացնել 20131209 Dim xFile As String Dim xFormat As Long Dim Wb As Workbook Dim Wb2 As Workbook Պղտոր Ֆայլի ուղին որպես տող Գունավոր ֆայլի անունը որպես տող Dim OutlookApp-ը որպես օբյեկտ Dim OutlookMail-ը որպես օբյեկտ սխալի դեպքում Շարունակել հաջորդ Application.ScreenUpdating = False Set Wb = Application.ActiveWorkbook ActiveSheet.Copy Set Wb2 = Application.WCasbookorXlPen: ".xlsx" xFormat = xlOpenXMLWorkbook Case xlOpenXMLWorkbookMacroEnabled: If Wb2.HasVBProject Այնուհետեւ xFile = ".xlsm" xFormat = xlOpenXMLWorkbookMacroEnabled Ուրիշ xFile = ".xlslxOnline. xFile = ".xlsb" xFormat = xlExcel8 Վերջ Ընտրել FilePath = Environ$("temp") & "\" FileName = Wb.Name & Format (Այժմ, "dd-mmm-yy h-mm-ss") Սահմանել OutlookApp = CreateObject («Outlook.Application») Սահմանել OutlookMail = OutlookApp.Cre ateItem(8) Wb12.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat With OutlookMail .To = "skyyang@extendoffice.com" & RANGE("AVIVA!b12") .CC = "" & RANGE("AVIVA!c12") .BCC = "" .Subject = "NOUVEAU DOSSIER" .body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը։" .Attachments.Add Wb2.FullName .DISPLAY .Send End With Wb2.Close Kill FilePath & FileName & xFile Set OutlookMail = Nothing Set OutlookApp = Nothing Application.ScreenUpdating = True End Շնորհակալություն օգնության համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք թույլ տալ օգտվողին ավելացնել էլփոստի ID-ն վերը նշված կոդով... Այն իսկապես լավ է աշխատում, եթե նշենք To email ID-ն...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարոն, ես կարող եմ ուղարկել ընտրված աշխատաթերթը որպես հավելված՝ ներառելով թեմա և տեքստ: Բայց ֆայլի անունը ցուցադրվում է որպես book1-02-apr-2016… Փոխարենը ես ուզում եմ ֆայլի անունը տալ հենց կոդի մեջ (նույն անունը շարունակելու համար ամեն անգամ ուղարկելիս) Խնդրում եմ օգնեք ինձ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում եմ շտապ օգնեք ինձ: Սա առաջին անգամն է, որ օգտագործում եմ ուղարկել ընթացիկ աշխատաթերթը որպես PDF, բայց ստորև բերված կոդը ընդհանրապես չաշխատեց, և թույլ տալու երկխոսությունը չհայտնվեց, երբ սեղմում էի ctrl+G: Ես նաև ուզում եմ իմանալ, թե ինչ փոխել բջիջը, որը պարունակում է էլփոստի հասցեն «որոշակի էլ. հասցեի» փոխարեն: Sub SendWorkSheetToPDF() «Թարմացնել 20131209 Dim Wb Որպես աշխատանքային գրքույկ Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object On Սխալ Resume Հաջորդ Սահմանել Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev(FileName, ".") If xIndex > 1 Ապա FileName = VBA.Left(FileName, xIndex - 1) FileName + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Տեսակը:=xlTypePDF, FileName:=FileName Սահմանել OutlookApp = CreateObject("Outlook.Application") Սահմանել OutlookMail = OutlookApp.Create = OutlookApp.Create = "OutlookApp.Create"extendoffice.com" .CC = "" .BCC = "" .Subject = "kte features" .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը." .Attachments.Add FileName .Send End With Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը լավ է աշխատում, այնուամենայնիվ, որևէ մեկը գիտի՞ դաշտը ավտոմատացնելու միջոց՝ որպես էլփոստի ազդանշան՝ ամսաթվի սյունակի հիման վրա ավտոմատ կերպով գնալու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Հնարավո՞ր է օգտագործել այս կոդը, բայց անմիջապես ուղարկելու փոխարեն այն բացում է փոստը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դուք կարող եք փորձել այս կոդը.
Sub Send Worksheet ()
«Թարմացնել 20180109
Խոնավեցրեք 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

Խնդրում եմ ինձ տեղյակ պահեք, եթե այն աշխատում է ձեզ համար, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչևէ, ես կարող եմ հեշտությամբ ուղարկել excel աշխատանքային թերթիկ իմ Outlook-ով առանց այս ամենի: Ես կարող եմ ուղարկել աշխատաթերթի համատեքստը, բայց ոչ աշխատանքային գրքույկը որպես հավելված: Իմ աշխատանքային համակարգչով ես կարող եմ ուղարկել word-ից և excel-ից, բայց տանը դժվարություններ ունեմ:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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