Ինչպե՞ս ուղարկել / էլ. Փոստի բջիջների շարք ուղարկել Excel- ի հեռանկարի միջոցով:
Դուք երբևէ տառապե՞լ եք մի խնդրով, որն աշխատանքային թերթիկում զեկույցն ավարտելուց հետո, և ձեզ հարկավոր է ուղարկել այս աշխատաթերթի մի շարք բջիջներ, որոնք պարունակում են որոշ կարևոր տվյալներ ձեր ստացողին: Կա՞ն ձեզ համար արագ եղանակներ Excel- ից առանց Outlook- ը բացելու այս էլփոստով էլ.
Ուղարկեք բջիջների շարքը որպես հավելված Excel- ից ՝ VBA կոդով
Excel- ից VBA կոդով բջիջների շարք ուղարկեք որպես մարմին
Ուղարկեք բջիջների շարքը որպես հավելված Excel- ից ՝ VBA կոդով
Հետևյալ VBA կոդը կարող է օգնել ձեզ ուղարկել ձեր ընտրած տիրույթը որպես հավելված Excel- ում: Խնդրում եմ արեք այսպես.
1, Բացեք ձեր աշխատանքային գրքույկը և այնուհետև պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Ուղարկեք բջիջների շարք որպես հավելված Excel- ից
Sub SendRange()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.ActiveWorkbook
Wb.Worksheets.Add
Set Ws = Application.ActiveSheet
WorkRng.Copy Ws.Cells(1, 1)
Ws.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 = "information of kte"
.Body = "hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
ՆշումՎերոնշյալ ծածկագրում հետևյալ տեղեկատվությունը կարող եք փոխել ձեր իսկ կարիքների համար:
- Դեպի = ""
- .CC = ""
- .BCC = ""
- .Tubject = "kte- ի տեղեկությունները"
- .Body = "բարև, խնդրում ենք ստուգել և կարդալ այս փաստաթուղթը":
3. Այնուհետեւ կտտացրեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ ՝ հիշեցնելով, որ ընտրում եք մի տիրույթ, որը ցանկանում եք ուղարկել: Տեսեք,
4. Այնուհետեւ կտտացրեք OK, և կհայտնվի հուշման տուփ, առաջընթացի գոտու ավարտից հետո կտտացրեք Թույլ տալ, ապա բջիջների հատուկ շարքը ուղարկվել է ձեր ստացողին ՝ որպես հավելված:
Excel- ից VBA կոդով բջիջների շարք ուղարկեք որպես մարմին
Եթե ցանկանում եք Excel- ից ուղարկել որոշակի տիրույթ որպես հաղորդագրության մարմնի մաս, այն լուծելու համար կարող եք նաև կիրառել հետևյալ VBA կոդը:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 120 հարմար գործառույթներ, հեշտացնում է ձեր գործերը: | ||
1, Ակտիվացրեք ձեր աշխատանքային թերթը և պահեք այն ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Excel- ից բջիջների շարք ուղարկեք որպես մարմին
Sub EmailRange()
'Update 20131209
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
WorkRng.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Please read this email."
.Item.To = ""
.Item.Subject = "information of kte"
.Item.Send
End With
Application.ScreenUpdating = True
End Sub
Նշում: Վերոնշյալ ծածկագրում հետևյալ տեղեկությունները կարող եք փոխել ձեր պահանջի:
- Ներածություն = "Խնդրում ենք կարդալ այս էլ. Փոստը":
- .Item.To = ""
- .Item.Subject = "տեղեկատվությունը kte"
3. Այնուհետեւ կտտացրեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրել մի տիրույթ, որն ուզում եք ուղարկել:
4. Այնուհետեւ կտտացրեք OK, և կհայտնվի հուշման տուփ, առաջընթացի գոտու ավարտից հետո կտտացրեք Թույլ տալ, ապա բջիջների հատուկ շարքը ուղարկվել է ձեր ստացողին ՝ որպես հաղորդագրության մարմին:
Նշումներ:
1. Այս կոդերը մատչելի են միայն այն դեպքում, երբ Outlook- ը ՝ որպես ձեր փոստային ծրագիր:
2. Ընթացիկ աշխատանքային թերթն ուղարկելուց հետո կարող եք գնալ ձեր Outlook ՝ համոզվելու, թե արդյոք նամակը հաջողությամբ ուղարկվել է:
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս ուղարկել աշխատաթերթ միայն Excel- ի Outlook- ի միջոցով:
Ինչպե՞ս ուղարկել ընթացիկ աշխատանքային գիրքը Excel- ի միջոցով Outlook- ի միջոցով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: