Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ուղարկել աշխատաթերթ միայն 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 = ""
    .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 այս կոդը գործարկելու համար ստեղնը, և հուշում է, որ պատուհանը դուրս կգա, կտտացրեք Թույլ տալ երբ առաջընթացի տողն ավարտված է, և ապա ընթացիկ աշխատանքային թերթը ուղարկվել է ձեր ստացողին ՝ որպես հավելված:

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 = ""
    .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 ֆայլ:

doc-email-sheet6

Նշումներ:

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

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

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

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

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

Ինչպե՞ս ուղարկել / էլ. Փոստի բջիջների շարք ուղարկել Excel- ի հեռանկարի միջոցով:

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

Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50 + Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (33)
No ratings yet. Be the first to rate!
Typhaine
Typhaine
This comment was minimized by the moderator on the site
Bonjour,

Est-il possible d'utiliser le code pour joindre deux feuilles du fichier Excel dans le mail ?

Merci d'avance.
Reply
0
0
skyyang
skyyang     Typhaine
This comment was minimized by the moderator on the site
Hello, Typhaine
To send multiple sheets, please apply the below code:
Note: In the code, you should change the sheet names to your own.
Sub Mail_Sheets_Array()
    Dim FileExtStr As String
    Dim FileFormatNum As Long
    Dim Sourcewb As Workbook
    Dim Destwb As Workbook
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim sh As Worksheet
    Dim TheActiveWindow As Window
    Dim TempWindow As Window
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    Set Sourcewb = ActiveWorkbook
    With Sourcewb
        Set TheActiveWindow = ActiveWindow
        Set TempWindow = .NewWindow
        .Sheets(Array("Sheet1", "Sheet2")).Copy
    End With
    TempWindow.Close
    Set Destwb = ActiveWorkbook
    With Destwb
        If Val(Application.Version) < 12 Then
           
            FileExtStr = ".xls": FileFormatNum = -4143
        Else
            
            Select Case Sourcewb.FileFormat
            Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
            Case 52:
                If .HasVBProject Then
                    FileExtStr = ".xlsm": FileFormatNum = 52
                Else
                    FileExtStr = ".xlsx": FileFormatNum = 51
                End If
            Case 56: FileExtStr = ".xls": FileFormatNum = 56
            Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
            End Select
        End If
    End With
    TempFilePath = Environ$("temp") & "\"
    TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .To = ""
            .CC = ""
            .BCC = ""
            .Subject = "KTE features"
            .Body = "Please check and read this document"
            .Attachments.Add Destwb.FullName
           
            .Display
        End With
        On Error GoTo 0
        .Close savechanges:=False
    End With
   
    Kill TempFilePath & TempFileName & FileExtStr

    Set OutMail = Nothing
    Set OutApp = Nothing

    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
Potocki
Potocki
This comment was minimized by the moderator on the site
Hej,

Muszę wysłać zakres (stały) arkusza jako obraz w treści maila jednocześnie dodając cały arkusz jako plik/załącznik. Czy jest to możliwe?
Reply
Report
0
0
Jose
Jose
This comment was minimized by the moderator on the site
Hi the program worked just fine till 2021, I tried to run it  today, but it does send the email. As does notshow any errors
Reply
0
0
Bhattacharjee
Bhattacharjee
This comment was minimized by the moderator on the site
This is to inform you that i have an VBA code for send email from outlook with the help of excel vba,now i want to put "MDD Code" & " MDD Name" as well as Cells(i, 1) & Cells(i, 2) in a table like that.

MDD Code MDD Name
M123 Joydip

I am sending you the VBA Code,Request you for help.
VBA Code
----------------------------------------------------------------------------------------------------------------------------------------------
Sub sendmail()

Dim olapp As Outlook.Application

Dim olmail As Outlook.MailItem

For i = 2 To 35

Application.ScreenUpdating = False

Set olapp = New Outlook.Application

Set olmail = olapp.CreateItem(olMailItem)

With olmail

olmail.To = Cells(i, 4).Value

olmail.CC = Cells(i, 6).Value

olmail.Subject = Cells(i, 7).Value

olmail.HTMLBody = "Dear Partner ," & _

"
Please find the attchment." & _

"

MDD Code : " & Cells(i, 1) & _

"
MDD Name : " & Cells(i, 2) & _

"






Joydip Bhattacharjee" & _

"
Company" & _

"
MIS" & _

"
Country" & _

"
Contact No : 7602066491"







olmail.Attachments.Add Cells(i, 8).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 9).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 10).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 11).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 12).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 13).Value

'On Error Resume Next

'olmail.Attachments.Add Cells(i, 14).Value

'On Error Resume Next

olmail.Send

End With

Set olmail = Nothing

Next

End Sub
Reply
Report
0
0
mehmet
mehmet
This comment was minimized by the moderator on the site
merhaba ben bunu belirli periyotta otomatik mail atmasını nasıl ayarlayabilirim
Reply
0
0
Oscar Eseisa
Oscar Eseisa
This comment was minimized by the moderator on the site
Excelent code. Thanks!
Reply
0
0
Dave
Dave
This comment was minimized by the moderator on the site
Anyway I can easily send an excel worksheet through my outlook without all this ?? I can send the worksheet context, but no the workbook as an attachment. On my work computer I can send from word and excel, but am having trouble at home.
Reply
0
0
Richard
Richard
This comment was minimized by the moderator on the site
Hi! Is it possible to use this code, but instead of sending straight away it opens up the mail?
Reply
0
0
Sunny
Sunny     Richard
This comment was minimized by the moderator on the site
You can try this code:
Sub SendWorkSheet()
'Update 20180109
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
.Display
' .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

Please let me know if it works for you, thank you.
Reply
Report
0
0
Sherry
Sherry
This comment was minimized by the moderator on the site
This code works good, however, does anyone know a way to automate a field as an alert for the email to go automatically based on a date column?
Reply
0
0
Adanma
Adanma
This comment was minimized by the moderator on the site
Kindly help me out urgently. This the first time I am using the send current worksheet as PDF but the below code did not work at all and the dialogue to allow did not show up when I presses ctrl+G. I also want to know what to change to reference a cell that contained the email address instead of "to a specific email address. 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
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations