Ինչպե՞ս ուղարկել աշխատաթերթ միայն Excel- ի Outlook- ի միջոցով:
Եթե ցանկանում եք Excel- ում աշխատանքային գրքից էլեկտրոնային փոստով ուղարկել մեկ աշխատանքային թերթ Outlook- ի միջոցով, կարող եք ուղարկել աշխատանքային թերթը որպես հավելված, որպես մարմնի պարունակություն կամ որպես PDF ֆայլ: Բայց Excel- ում այս խնդրի լուծման համար կա՞ն ավելի արագ եղանակներ:
Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես հավելված
Excel- ից VBA կոդով ուղարկեք մեկ աշխատանքային թերթ որպես PDF ֆայլ
Ուղարկեք էլեկտրոնային փոստի ստացողի հրամանի միջոցով Excel- ից ուղարկել մեկ աշխատանքային թերթիկ որպես մարմին
Excel- ն աջակցում է մեզ ակտիվ աշխատանքային թերթը էլեկտրոնային փոստով ուղարկել որպես մարմնի բովանդակություն ՝ օգտագործելով Ուղարկել փոստին ստացողի հրամանը: Կարող եք անել հետևյալ կերպ.
Եթե օգտագործում եք Excel 2007, 2010 կամ 2013 թվականները, ապա անհրաժեշտ է ավելացնել դրանք Ուղարկել փոստի ստացողին հրաման Արագ մուտք Գործիքադարակը առաջին.
1, Կտտացրեք պատկերակի վրա Անհատականացրեք Արագ մուտքի Գործիքադարակըեւ ընտրեք Ավելի շատ հրամաններ, տես նկարի նկարը.
2. Եվ է Excel ընտրանքներ երկխոսության վանդակում, ընտրեք Հրամաններ ոչ ժապավենով է Ընտրեք հրամաններ բացվող ցուցակը, ապա ընտրեք Ուղարկել փոստի ստացողին տարբերակը և սեղմեք Ավելացնել >> կոճակը ՝ այս հրամանն ավելացնելու համար, վերջապես կտտացրեք OK այս պարամետրը պահպանելու համար: Տեսեք,
3. The Ուղարկել փոստի ստացողին հրամանը տեղադրվել է Արագ մուտք Գործիքադարակը, տես նկարի նկարը.
4, Դրանից հետո կտտացրեք սա Ուղարկել փոստի ստացողին պատկերակի կոճակը, և արագ տուփը դուրս է գալիս E-mail արագ տուփ, ստուգեք Ուղարկեք ընթացիկ թերթը որպես հաղորդագրության մարմինեւ սեղմեք OK, Տեսեք,
5, Եվ էլփոստի խմբագրման վանդակը ցուցադրվում է աշխատանքային թերթի տվյալների վերևում, դուք կարող եք մուտքագրել ձեր ստացողներին, թեման և ներածումը համապատասխան տեքստի վանդակում: Տեսեք,
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 = ""
.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
ՆշումՎերոնշյալ ծածկագրում հետևյալ տեղեկատվությունը կարող եք փոխել ձեր իսկ կարիքների համար:
- Դեպի = ""
- .CC = ""
- .BCC = ""
- .Tubject = "kte հատկությունները"
- .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"
4. Այնուհետեւ կտտացրեք F5 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ պատուհանը դուրս կգա, կտտացրեք Թույլ տալ երբ առաջընթացի տողն ավարտված է, և ապա ընթացիկ աշխատանքային թերթը ուղարկվել է ձեր ստացողին ՝ որպես հավելված:
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 = ""
.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
Նշում. Վերոնշյալ ծածկագրում հետևյալ տեղեկությունները կարող եք փոխել ձեր պահանջի:
- Դեպի = ""
- .CC = ""
- .BCC = ""
- .Tubject = "kte հատկությունները"
- .Body = "Խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը:"
4, Դրանից հետո սեղմեք F5 ստեղնը, և հուշման վանդակը դուրս կգա, կտտացրեք Թույլ տալ առաջընթացի սանդղակի ֆինանսավորումից հետո, ապա ակտիվ աշխատանքային թերթը ուղարկվել է կոնկրետ անձին ՝ որպես PDF ֆայլ:
Նշումներ:
1. Այս մեթոդները մատչելի են միայն այն ժամանակ, երբ Outlook- ն օգտագործում եք որպես ձեր փոստային ծրագիր:
2. Ընթացիկ աշխատանքային թերթն ուղարկելուց հետո կարող եք գնալ ձեր Outlook ՝ համոզվելու, որ էլփոստը հաջողությամբ ուղարկվել է:
Ստեղծեք փոստային ցուցակ, ապա ուղարկեք էլ
|
The Kutools for Excel's Ստեղծեք փոստային ցուցակ և ուղարկել Emails Կոմունալ ծառայությունները կարող են արագ ստեղծել փոստային ցուցակ աշխատանքային թերթում, ապա ուղարկել նույն թեման, նույն բովանդակությունը և նույն կցորդները բազմաթիվ էլ. հասցեներին: |
![]() |
![]() |
![]() |
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս ուղարկել ընթացիկ աշխատանքային գիրքը Excel- ի միջոցով Outlook- ի միջոցով:
Ինչպե՞ս ուղարկել / էլ. Փոստի բջիջների շարք ուղարկել Excel- ի հեռանկարի միջոցով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:












