Excel oktatóanyag – Küldjön e-maileket az Excelből

Általában e-mail klienseket használunk, például Outlook, Gmail stb. Sokan azonban Excel-munkafüzetekben tárolják az adatokat, és bizonyos adatokat el kell küldeniük másoknak, miközben dolgoznak velük. Ezért közvetlenül az Excel-munkafüzetből kell e-maileket küldeniük, amivel időt takaríthat meg az e-mail kliens működtetése. Ez a lépésről lépésre bemutató oktatóanyag bemutatja, hogyan küldhet e-maileket az Excelből különböző feltételek mellett.

Megjegyzések: A következő módszerek alkalmazása előtt konfigurálnia kell egy Outlook levelezőprogramot a számítógépén, és be kell állítania alapértelmezett levelezőprogramként.

1. Az e-mailek Excelből történő küldésének alapjai

Ez a rész az e-mailek Excelből történő küldésének alapjait mutatja be.

1.1 E-mail küldése az Excelből az Excel beépített funkcióival

Ha csak egyszerű e-maileket szeretne küldeni az Excelből, csak a Címzett, Tárgy, Másolat és törzs mezőket tartalmazza. Az Excel beépített függvényei segíthetnek.

1.1.1 E-mail küldése az Excelből képlet segítségével

Az alábbi táblázatban látható módon, ha az adott mezők alapján különböző e-maileket szeretne küldeni az Excelből, az adott mezők cellahivatkozásai segítségével különböző hiperhivatkozási képleteket hozhat létre. Az e-mail hiperhivatkozások létrehozása után rákattinthat arra a hivatkozásra, amelyre az e-mail automatikus küldéséhez szüksége van.

Jegyzet: Ha egynél több címzett van a Címzett vagy a Másolat mezőben, kérjük, válassza el őket pontosvesszővel.

Ez a szakasz négy részre oszlik, és bemutatja az e-mail cím, a másolat címzettje(i), a tárgysor és a törzsszöveg külön-külön hozzáadásának lépéseit a hiperhivatkozás képletéhez. Kérjük, tegye a következőket.

A szintaxisa és argumentumai HIPERLINK funkciók a következők.

Szintaxis

HYPERLINK(link_location, [friendly_name])

érvek

1.1.1.1 E-mail cím hozzáadása a hiperhivatkozási képlethez

Itt használjuk "mailto:" az e-mail címzett hozzáadásához szükséges képlet részeként. Ebben a példában az első címzett e-mail címe a B2 cellában található, ezért hozzá kell adnunk a "mailto:" kifejezést, és hivatkoznunk kell rá a B2 cellára.

„mailto:”&B2

1. Jelöljön ki egy cellát a hiperhivatkozás megjelenítéséhez. Ebben az esetben az F2 cellát választom.

2. Ezután írja be a következő képletet.

=HYPERLINK("mailto:"&B2)

Megjegyzések: Ha megnyomja a gombot belép gombot, egy hiperhivatkozás jön létre az alábbi képernyőképen látható módon. Ha rákattint a hivatkozásra, egy Outlook e-mail jön létre, és a címzett e-mail címe automatikusan megjelenik a Címzett mezőben.

A címzett e-mail címe most hozzáadódik a hiperhivatkozás képletéhez. Kérjük, folytassa a következő lépésekkel a tárgysor, a Másolat címzettje(i) és a törzsszöveg igény szerinti hozzáadásához.

1.1.1.2 Másolat címzett(ek) hozzáadása a hiperhivatkozás képletéhez

Ha hozzá szeretné adni a Másolat címzett(ek)et a hiperhivatkozás funkcióhoz, adja hozzá "?cc=" a képlet részeként az alábbiak szerint.

Az F2 cellában lévő képletnek a következőnek kell lennie:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2)

1.1.1.3 Tárgysor hozzáadása a hiperhivatkozás képletéhez

Ha hozzá szeretné adni a tárgysort a hiperhivatkozás funkcióhoz, adja hozzá "&tárgy=" a képlet részeként az alábbiak szerint.

Az F2 cellában lévő képletnek a következőképpen kell kinéznie:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2)

1.1.1.4 Törzsszöveg hozzáadása sortöréssel a hiperhivatkozás képletéhez

Az utolsó lépés a törzsszöveg hozzáadása a hiperhivatkozás képletéhez. Ahogy a példában is látható, az E2-ben két sornyi szöveget sortörés választ el, és a sortörést az e-mail törzsében szeretné tartani. Az Outlook felismeri a sortörést ebben az esetben? Ellenőrizzük.

A törzsszöveg hozzáadásához a hiperhivatkozás képlethez hozzá kell adnia „&body=” a képlet részeként az alábbiak szerint.

Az F2 cellában lévő képlet most a következőképpen jelenik meg:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2)

Jegyzet: Ha megnyomja a belép gombot, és kattintson a hivatkozásra. Az új e-mailben láthatja, hogy az e-mail törzsének tartalma ugyanabban a sorban jelenik meg.

Az e-mail törzsének külön sorokban történő megjelenítéséhez módosítania kell a cella tartalmát a kocsivissza karakter kód hozzáadásával %0A arra a szövegre, ahol sortörést kell beszúrni. Lásd a képernyőképet:

1.1.1.5 Adja meg a hiperhivatkozáshoz megjelenítendő szöveget

A fenti lépésekben befejeztük a Link_location argumentumot e-mail mezőkkel. Ebben a részben a következő [barátságos_név] argumentumot fejezzük be.

Ebben az esetben azt szeretném, hogy a hiperhivatkozás cellája a következőképpen jelenítse meg a szöveget:E-mail: xx”, ahol xx a címzett neve az A2-ben. Tehát az F2 képletét a következőre kell módosítani:

=HYPERLINK("mailto:" & B2 & "?cc=" & C2 & "&subject="& D2 & "&body="& E2, "Email to "&A2)

Nyomja meg a belép kulcs az eredmény eléréséhez.

Jelölje ki ezt a képletcellát, és húzza át AutoFill fogantyú más e-mail hiperhivatkozások létrehozásához. Lásd a képernyőképet:

1.1.2 E-mail küldése Excelből a Hiperhivatkozás funkcióval

A fenti hiperhivatkozási képlet kivételével manuálisan is létrehozhat egy e-mail hiperhivatkozást a betétlap Hiperhivatkozás függvény Excelben. Ez a rész a lépéseket mutatja be.

1. Kattintson jobb gombbal arra az e-mailre, amelybe hiperhivatkozást szeretne beszúrni, és válassza ki Link a jobb egérgombbal kattintva.

2. A felbukkanóban Hyperlink beszúrása párbeszédpanelen az alábbiak szerint kell konfigurálnia.

2.1) Válassza ki E-mail cím a bal oldali ablaktáblában.

2.2) A Megjelenítendő szöveg textbox, írja be a cellába a megjeleníteni kívánt szöveget;

tippek: Ebben a párbeszédpanelben nem használhat cellahivatkozásokat, ezért manuálisan kell beírnia az e-mail mezőket az alábbiak szerint.

2.3) A E-mail cím szövegmezőbe, be kell írnia a következő e-mail címeket.

mailto:e-mail cím

Kérjük, cserélje ki a „E-mail cím” valós e-mail címével. Ha egynél több e-mail címe van, pontosvesszővel válassza el őket.

2.4) A Tárgy szövegmezőben megadhatja az e-mail tárgyát és törzsét. Kérjük, konfigurálja az alábbiak szerint:

Email tárgy&body=E-mail törzse

Ebben az esetben beírom Monthly sale&body=Szia!%0AEmail érkezett.

> ahol a téma a Havi értékesítés;

és a

> az e-mail törzse:

Szia,

E-mail érkezett. (%0A az Outlook által felismerhető kocsivissza karakter kód)

2.5) Kattintson a gombra OK gombot a hiperhivatkozás mentéséhez. Lásd a képernyőképet:

A hiperhivatkozásra kattintva egy Outlook e-mail jön létre a megadott Címzett, Tárgy és Törzs mezőkkel, az alábbi képernyőképen látható módon.

Megjegyzések:

1.2 E-mail küldése több címzettnek a cellákban VBA-szkripttel

A fenti példában több e-mail cím látható egy cellában, pontosvesszővel elválasztva. Ha rendelkezik az alábbi képernyőképen látható e-mail címek listájával, és mindegyiknek szeretne e-mailt vagy független e-mailt küldeni, a következő VBA-kód jót tehet Önnek.

1.2.1 E-mail küldése több címzettnek a cellákban VBA-szkripttel

1. A munkalapon, amely tartalmazza az összes e-mail címet, amelyre az e-mailt el szeretné küldeni. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modul, majd illessze be a következő kódot a Modul (kód) ablak.

VBA-kód: E-mail küldése az e-mail címek listájára

Sub sendmultiple()
'updateby Extendoffice 20220802
    Dim xOTApp As Object
    Dim xMItem As Object
    Dim xCell As Range
    Dim xRg As Range
    Dim xEmailAddr As String
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOTApp = CreateObject("Outlook.Application")
    For Each xCell In xRg
        If xCell.Value Like "*@*" Then
            If xEmailAddr = "" Then
                xEmailAddr = xCell.Value
            Else
                xEmailAddr = xEmailAddr & ";" & xCell.Value
            End If
        End If
    Next
    Set xMItem = xOTApp.CreateItem(0)
    With xMItem
        .To = xEmailAddr
        .Subject = "Test"
        .Body = "Dear " _
                & vbNewLine & vbNewLine & _
                "This is a test email " & _
                "sending in Excel"
        .Display
    End With
End Sub

3. megnyomni a F5 gomb a kód futtatásához és a Kutools az Excel számára párbeszédpanel jelenik meg. Válassza ki az e-mail címek listáját, és kattintson a gombra OK.

Megjegyzések:

.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

A kód futtatása után a kiválasztott tartományban lévő összes e-mail cím megjelenik az üzenetablak Címzett mezőjében. Lásd a képernyőképet:

1.2.2 Külön küldjön e-maileket a cellákban felsorolt ​​minden címzettnek VBA-szkripttel

A fenti kód hozzáadja a kiválasztott tartományban lévő összes e-mail címet az üzenetablak Címzett mezőjéhez. Ha külön-külön szeretne e-maileket küldeni a cellákban felsorolt ​​e-mail-címekre anélkül, hogy láthatnák egymás e-mail címét, próbálkozzon a következő VBA-szkripttel.

1. A munkalapon, amely tartalmazza az összes e-mail címet, amelyre az e-maileket küldeni szeretné. megnyomni a más + F11 gombok nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd illessze be a következő kódot a Modul (Kód) ablakba.

VBA-kód: Küldjön e-maileket a cellákban felsorolt ​​e-mail-címekre külön-külön

Sub SendEmailToAddressInCells()
'Updated by Extendoffice 20220802
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the addresses list", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

3. Ezután kattintson Eszközök > Hivatkozásokat. A Referenciák - VBAProject párbeszédpanelen keresse meg és ellenőrizze a Microsoft Outlook 16.0 objektumkönyvtár majd kattintson a OK gombot a módosítások mentéséhez.

4. megnyomni a F5 gomb a kód futtatásához és a Kutools az Excel számára párbeszédpanel jelenik meg. Válassza ki az e-mail címek listáját, és kattintson OK.

Megjegyzések:

.Subject = "Test"
.Body = "Dear " _
        & vbNewLine & vbNewLine & _
        "This is a test email " & _
        "sending in Excel"

Ebben a példában hat e-mail cím van a kiválasztott tartományban, így hat Outlook üzenetablak jön létre automatikusan, külön e-mail címekkel a Címzett mezőben, ahogy az alábbi képernyőképen látható.

5. Végül kattintson Küldés gombot az e-mail egyenkénti elküldéséhez.

2. Szúrjon be mellékleteket vagy Outlook aláírást az Excelből küldött e-mailekbe (VBA-szkriptekkel)

Ez a rész bemutatja, hogyan illeszthet be mellékleteket vagy Outlook alapértelmezett aláírását az Excelből küldött e-mailekbe.

2.1 Szúrjon be mellékleteket az Excelből küldött e-mailekhez

Itt ismertetjük a mellékletek beszúrásának különböző eseteit, és Ön igényei szerint választhatja ki a módszert. Ebben a részben megtudhatja, hogy (a megfelelő módszerhez való navigáláshoz kattintson a következő hivatkozások bármelyikére):

2.1.1 Egy adott fájl elküldése e-mailben mellékletként

Alkalmazhatja a következő VBA-kódot, hogy egy vagy több fájlt e-mailben küldjön el egy mappában mellékletként az Excelből.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután illessze be a következő VBA-kódot a Modul (Kód) ablakba.

VBA-kód: Egy mappában lévő fájlok elküldése mellékletként az Excelből

Sub EmailWithAttachments()
'Updated by Extendoffice 20220802
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = ""
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Megjegyzések:

3. Ezután kattintson Eszközök > Hivatkozásokat. A Referenciák - VBAProject párbeszédpanelen keresse meg és ellenőrizze a Microsoft Outlook 16.0 objektumkönyvtár majd kattintson a OK gombot a módosítások mentéséhez.

4. megnyomni a F5 gombot a kód futtatásához, majd a Tallózás ablak felugrik, válassza ki az e-mailben csatolandó fájlokat, majd kattintson OK.

Ekkor megjelenik egy üzenetablak. A Csatolt mezőben láthatja, hogy a kiválasztott fájlok mellékletként jelennek meg.

2.1.2 Az aktuális munkalap elküldése e-mailben mellékletként

Ha az aktuális munkalapot e-mailben mellékletként szeretné elküldeni az Excelből, akkor ebben a részben alkalmazhatja a VBA-szkriptet.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson helyezze > Modulok. Ezután illessze be a következő VBA-kódot a Modul (kód) ablak.

VBA-kód: Az aktuális munkalapot mellékletként küldje el e-mailben

Sub SendWorkSheet()
'Update by Extendoffice 20220802
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 = "Email Address"
    .BCC = "Email Address"
    .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

Megjegyzések:

3. megnyomni a F5 gombot a kód futtatásához, akkor az aktuális munkalapot Excel-munkafüzetként menti, és mellékletként automatikusan beszúrja egy üzenetablakba. Lásd a képernyőképet:

Jegyzet: A csak az aktuális munkalapot tartalmazó csatolt munkafüzet neve megegyezik az eredeti munkafüzetével. És a kód futtatásának ideje is hozzáadódik a munkafüzet nevéhez.

2.1.3 Az aktuális munkafüzet elküldése e-mailben mellékletként

Miután megtanulta a VBA-kódot az aktuális munkalap mellékletként való elküldéséhez az Excelből, itt egy másik VBA-szkriptet biztosítunk, amely segít a teljes munkafüzet mellékletként történő elküldésében. Kérjük, tegye a következőket.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután illessze be a következő VBA-kódot a Modul (Kód) ablakba.

VBA-kód: Az aktuális munkafüzet elküldése e-mailben mellékletként az Excelből

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Megjegyzések:

3. megnyomni a F5 gombot a kód futtatásához, akkor az aktuális munkafüzet mellékletként automatikusan bekerül egy üzenetablakba. Lásd a képernyőképet:

2.1.4 A teljes munkafüzet elküldése e-mailben PDF-mellékletként

A legtöbb ember általában PDF-fájlként menti az Excel-munkafüzetet, majd mellékletként küldi el másoknak. Ebben a részben bemutatom, hogyan küldhet e-maileket közvetlenül az Excelből úgy, hogy az aktuálisan megnyitott munkafüzetet PDF-mellékletként kell elküldeni anélkül, hogy manuálisan kellene PDF-fájlként mentenie a munkafüzetet.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután illessze be a következő VBA-kódot a Modul (Kód) ablakba.

VBA-kód: Küldje el e-mailben a teljes munkafüzetet PDF-mellékletként

Sub SendWorkBookAsPDF()
'Update 20220803
Dim Wb As Workbook
Dim FilePath As String
Dim FileName As String
Dim xOutApp As Object
Dim xOutMail As Object
On Error Resume Next

Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
FileName = Left(Wb.Name, (InStrRev(Wb.Name, ".", -1, vbTextCompare) - 1)) & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
FilePath = Environ$("temp") & "\" & FileName

Wb.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    FilePath, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False

Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
With xOutMail
       .To = ""
       .CC = "Email Address"
       .BCC = "Email Address"
       .Subject = "test"
       .Body = "test"
       .Attachments.Add FilePath
       .Display   'or use .Send
   End With
Kill FilePath
Set xOutMail = Nothing
Set xOutApp = Nothing
Application.ScreenUpdating = True
End Sub

Megjegyzések:

3. megnyomni a F5 gombot a kód futtatásához. Ezután az aktuális munkafüzet automatikusan beszúrásra kerül egy új üzenetablakba PDF-fájl mellékletként. Lásd a képernyőképet:

2.1.5 Az aktuális munkalap elküldése e-mailben PDF-mellékletként

Például van egy „Havi értékesítés” nevű munkafüzet, és Ön befejezte az értékesítési jelentés táblázatát egy „értékesítési jelentés” nevű munkalapon, és ezt a munkalapot PDF-fájlként szeretné elküldeni kollégáinak. A következő VBA-kód tehet egy szívességet.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson helyezze > Modult. Ezután illessze be a következő VBA-kódot a Modul (Kód) ablakba.

VBA-kód: Küldje el e-mailben az aktuális munkalapot PDF-mellékletként

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
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 = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

Megjegyzések:

3. megnyomni a F5 gombot a kód futtatásához. Ezután az aktuális munkalap automatikusan beszúrásra kerül egy új üzenetablakba PDF-fájl mellékletként. Lásd a képernyőképet:

2.2 Szúrjon be Outlook aláírást az Excelből küldött e-mailekbe

Vegyük példának a fenti esetet, alkalmazza a fenti VBA-kódot, hogy az aktuális munkalapot PDF-fájl mellékletként küldje el az Excelből, de az Outlook-aláírás nem adható hozzá az üzenetablakhoz. Ha meg szeretné őrizni az Outlook alapértelmezett aláírását az Excelből küldött e-mailben, a következő módszer segít.

Az alábbiakban két VBA-kód található.

VBA-kód 1: A kód segít megőrizni az Outlook aláírását.

VBA-kód 2: A kód segít az aktuális munkalap elküldésében PDF-mellékletként.

VBA-kód 1: Az Outlook aláírás megőrzése

.HTMLBody = "Email body" & "
" & .HTMLBody

VBA-kód 2: Küldje el e-mailben az aktuális munkalapot PDF-mellékletként

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
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 = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .Body = "test"
    .Attachments.Add FileName
    .Display
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

1. Általában meg kell nyomnia a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután illessze be a fenti VBA 2-es kódot a Modul (Kód) ablakba.

3. Ha meg szeretné tartani az Outlook alapértelmezett aláírását az Excelből küldött e-mailben, módosítania kell a 2. VBA-kódot az alábbiak szerint:

Itt a teljes kód módosítás után.

Sub SendWorkSheetToPDF()
'Update by Extendoffice 20220803
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
    .Display
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "test"
    .HTMLBody = "Email body" & "
" & .HTMLBody
    .Attachments.Add FileName
    '.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

4. megnyomni a F5 gombot a kód futtatásához. Ezután egy új üzenetablak jelenik meg, amelyhez az aktuális munkalap PDF-fájlként csatolva lesz, miközben az Outlook alapértelmezett aláírása automatikusan beszúrásra kerül az e-mail törzsének végére.

3. Automatikusan küldjön e-maileket az Excelből, ha egy feltétel teljesül (VBA-szkriptekkel)

A fenti példákban az e-mail kézbesítéséhez manuálisan kell futtatnia a kódot. Ha szeretné automatikusan aktiválni a kódot, ha egy bizonyos feltétel teljesül, például amikor egy cella elér egy bizonyos értéket, ha egy cella értéke megváltozik, amikor elérkezik egy dátum stb., akkor az e-mail automatikusan elküldésre kerül. Ez a rész azokat a feltételeket sorolja fel, amelyekre az Excel-felhasználók gyakran kerestek a Google-ban, hogy segítsen automatikusan e-maileket küldeni az Excelből, ha egy bizonyos feltétel teljesül.

3.1 Automatikus e-mail küldése, ha egy cella elér egy bizonyos értéket

Ahogy az alábbi képernyőképen látható, tegyük fel, hogy van egy értékesítési táblázata, amelynek D6 cellája tartalmazza az eladások végösszegét. Automatikusan szeretne e-mailt küldeni a főnökének az eladások összege alapján, például létrehozhat vagy elküldhet automatikusan egy e-mailt, ha az eladások végösszege meghaladja az 10000 10000-et, de ha az eladások végösszege egyenlő vagy kevesebb, mint XNUMX XNUMX, akkor nem történik semmi.

1. Az értékesítési táblázatot tartalmazó munkalapon kattintson a jobb gombbal a lapfülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. A nyílásban Microsoft Visual Basic for Applications ablakban illessze be a következő VBA-kódot a Lap (kód) ablak.

VBA-kód: Automatikusan e-mailt küld, ha egy cella elér egy bizonyos értéket az Excelben

Dim xRg As Range
'Update by Extendoffice 20200803
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D6"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 10000 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")
On Error Resume Next
With xOutMail
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Private Sub Worksheet_Calculate()
Dim xI As Integer
Dim xRg As Range
Set xRg = Range("D6")
On Error GoTo Err01
xI = Int(xRg.Value)
If xI > 10000 Then
Call Mail_small_Text_Outlook
End If
Err01:
End Sub

Megjegyzések:

xMailBody = "Hi boss" & vbNewLine & vbNewLine & _
"Total sales of over $10,000 in January: " & Range("D6")

Mostantól kezdve, ha a D6 cellában lévő érték meghaladja az 10000-et, az alábbi képernyőképen látható módon e-mail jön létre.

3.2 Automatikus e-mail küldése, ha egy cellaérték megváltozik

Amint az alábbi képernyőképen látható, tegyük fel, hogy kap egy munkafüzetet, amely a havi eladásokat különböző munkalapokon és az összes értékesítést egy munkalapon tartalmazza. Ellenőriznie kell az értékesítési végösszeget, és ha az értékesítési végösszeg módosul, küldje vissza a munkafüzetet a feladónak, és értesítse a feladót, hogy a cella módosult.

1. Az értékesítési táblázatot tartalmazó munkalapon kattintson a jobb gombbal a lapfülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. A nyílásban Microsoft Visual Basic for Applications ablakban illessze be a következő VBA-kódot a Lap (Kód) ablakba.

VBA-kód: Automatikusan e-mailt küld, ha egy megadott cellaérték megváltozik

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220803
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
Dim xBoolean As Boolean
Dim xItsRG As Range
Dim xDDs As Range
Dim xDs As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xBoolean = False
Set xRg = Range("B14")

Set xItsRG = Intersect(Target, xRg)
Set xDDs = Intersect(Target.DirectDependents, xRg)
Set xDs = Intersect(Target.Dependents, xRg)
If Not (xItsRG Is Nothing) Then
Set xRgSel = xItsRG
xBoolean = True
ElseIf Not (xDDs Is Nothing) Then
Set xRgSel = xDDs
xBoolean = True
ElseIf Not (xDs Is Nothing) Then
Set xRgSel = xDs
xBoolean = True
End If

ActiveWorkbook.Save
If xBoolean Then
Debug.Print xRgSel.Address

Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "The cell " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."

With xMailItem
.To = ""
.CC = "Email address"
.BCC = "Email address"
.Subject = "Worksheet modified"
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Megjegyzések: A kódban

Mostantól kezdve, amikor a B14 cellában lévő érték megváltozik, az alábbi képernyőképen látható módon automatikusan létrejön egy Outlook üzenet.

3.3 Automatikus e-mail küldése munkafüzet mentésekor

Ha van egy munkafüzete, amelyet a módosítás után meg kell osztani másokkal, akkor általában el kell mentenie a munkafüzetet, el kell indítania az e-mail klienst, új e-mailt kell létrehoznia ezzel a munkafüzettel, össze kell írnia a megfelelő mezőket, majd el kell küldenie az e-mailt. Ez a szakasz bemutatja azt a módszert, amellyel automatikusan létrehozhat egy e-mailt a munkafüzet minden mentésekor. Kérjük, tegye a következőket.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ebben az ablakban kattintson duplán Ez a munkafüzet a NetPoulSafe projekt ablaktáblát, majd illessze be a következő VBA-kódot a Ez a munkafüzet (kód) ablak.

VBA-kód: Automatikus e-mail küldése munkafüzet mentésekor

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20220804
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .Subject = "The workbook has been updated"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Megjegyzések: A kódban

3. Ezentúl a munkafüzet elmentésekor a gomb megnyomásával Ctrl + S gombokra vagy a gombra kattintva Megtakarítás gombot, akkor automatikusan létrejön egy Outlook e-mail. Láthatja, hogy az aktuális munkafüzet mellékletként van csatolva, és a mezők a megadott tartalommal vannak feltöltve. Lásd a képernyőképet:

tippek: Ha gyakran használja ezt a munkafüzetet, itt javasoljuk, hogy mentse el a munkafüzetet Excel makró-engedélyezett munkafüzet hogy mentse a VBA-szkriptet későbbi használatra. A lépések a következők.

3.4 E-mail automatikus küldése egy adott időpontban

Tegyük fel, hogy el kell küldenie valakinek egy e-mailt egy feladat-hozzárendelési munkafüzettel minden péntek reggel 9 órakor, és ezt automatikusan, az e-mail kliens manuális működtetése nélkül szeretné megtenni az Excelben. Ez a rész bemutatja a megvalósítás módját.

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modult. Ezután illessze be a következő VBA-kódot a Modul ablakba.

VBA-kód1: Az aktuális munkafüzet elküldése e-mailben mellékletként az Excelből

Sub Timer()
    If Weekday(Date) = vbFriday Then
        SendWorkBook
        Application.OnTime TimeValue("09:00:00"), "Timer"
    Else
        Application.OnTime TimeValue("09:00:00"), "Timer"
    End If
End Sub

Sub SendWorkBook()
'Update by Extendoffice 20220802
Dim OutlookApp As Object
Dim OutlookMail As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
On Error Resume Next
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. Ebben az ablakban kattintson duplán Ez a munkafüzet a NetPoulSafe projekt ablaktáblát, majd illessze be a következő VBA-kódot a Ez a munkafüzet (kód) ablak.

VBA-kód 2: Automatikus e-mail küldése egy adott időpontban

Private Sub Workbook_Open()
    Application.OnTime TimeValue("09:00:00"), "Timer"
End Sub

Megjegyzések:

4. Mentse el a kódokat, majd mentse a munkafüzetet Excel-makró-kompatibilis munkafüzetként az alábbiak szerint.

5. Nyissa meg a mentett makróképes munkafüzetet, ekkor a rendszer automatikusan e-mailt hoz létre vagy küld el, amikor elérkezik a nap és az idő.

4. További témák

Ez a rész olyan egyéb témákat gyűjt össze, amelyekkel találkozhat, amikor Excelből küld e-maileket.

4.1 Cellatartomány elküldése e-mailben az Excelből (VBA-szkripttel)

Tételezzük fel, hogy van egy havi értékesítési táblázat egy Excel-munkalapon, ahogy az alábbi képernyőképen látható, és ezt a havi értékesítési táblázatot el kell küldenie másoknak egy e-mail törzseként vagy közvetlenül mellékletként. Itt két módszert kínálunk ennek megvalósítására.

4.1.1 Egy tartomány elküldése e-mailben a törzstartalom részeként az Excelből

A következő VBA-kód futtatásával cellatartományt küldhet az e-mail törzstartalmának részeként az Excelből

1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák. És akkor ellenőrizze a Microsoft Outlook 16.0 objektumkönyvtár doboz és kattintson OK a Referenciák - VBAProject párbeszédablak.

3. kettyenés betétlap > Modulok, majd illessze be a következő VBA-kódot a Modul (kód) ablak.

VBA-kód: Cellatartományt küldhet az e-mail törzstartalmának részeként az Excelből

Sub SendARangeofCells()
'Updated by Extendoffice 20220809
    Dim xRg As Range
    Dim I, J As Long
    Dim xAddress As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select range you need to paste into email body", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    With xMailOut
        .Subject = "test"
        .To = ""
        .CC = "Email address"
        .BCC = "Email address"
        .HTMLBody = RangetoHTML(xRg)
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

 ' The following VBA script is cited from this page:
 ' https://stackoverflow.com/questions/18663127/paste-excel-range-in-outlook
Function RangetoHTML(rng As Range)
' By Ron de Bruin.
    Dim fso As Object
    Dim ts As Object
    Dim TempFile As String
    Dim TempWB As Workbook

    TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

    'Copy the range and create a new workbook to past the data in
    rng.Copy
    Set TempWB = Workbooks.Add(1)
    With TempWB.Sheets(1)
        .Cells(1).PasteSpecial Paste:=8
        .Cells(1).PasteSpecial xlPasteValues, , False, False
        .Cells(1).PasteSpecial xlPasteFormats, , False, False
        .Cells(1).Select
        Application.CutCopyMode = False
        On Error Resume Next
        .DrawingObjects.Visible = True
        .DrawingObjects.Delete
        On Error GoTo 0
    End With

    'Publish the sheet to a htm file
    With TempWB.PublishObjects.Add( _
         SourceType:=xlSourceRange, _
         Filename:=TempFile, _
         Sheet:=TempWB.Sheets(1).Name, _
         Source:=TempWB.Sheets(1).UsedRange.Address, _
         HtmlType:=xlHtmlStatic)
        .Publish (True)
    End With

    'Read all data from the htm file into RangetoHTML
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
    RangetoHTML = ts.ReadAll
    ts.Close
    RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                          "align=left x:publishsource=")

    'Close TempWB
    TempWB.Close savechanges:=False

    'Delete the htm file we used in this function
    Kill TempFile

    Set ts = Nothing
    Set fso = Nothing
    Set TempWB = Nothing
End Function

Megjegyzések: A kódban

4. megnyomni a F5 gombot a kód futtatásához. A felbukkant Kutools az Excel számára párbeszédpanelen válassza ki azt a cellatartományt, amelyet el kell küldenie az e-mail törzstartalmának részeként, majd kattintson a gombra OK. Lásd a képernyőképet:

Ezután automatikusan létrejön egy Outlook e-mail. Láthatja, hogy a munkalapon kiválasztott tartomány bekerül az e-mail törzsébe. Lásd a képernyőképet:

4.1.2 Egy tartomány elküldése e-mailben mellékletként az Excelből

Ha egy munkalap celláinak egy tartományát kell e-mailben elküldeni mellékletként az Excelből. Kipróbálhatja a következő VBA kódot.

1. megnyomni a más + F11 kulcsok.

2. A nyílásban Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután illessze be a következő VBA-kódot a Modul (kód) ablak.

VBA-kód: Egy tartomány elküldése mellékletként az Excelből

Sub SendRange()
'Update 20220809
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 = "Email address"
    .BCC = "Email address"
    .Subject = "Monthly sales for 2021"
    .Body = "Hello, 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
Ws.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Megjegyzések:

3. megnyomni a F5 gombot a kód futtatásához. A felbukkant Kutools az Excel számára párbeszédpanelen válassza ki az e-mail mellékleteként elküldendő cellák körét, majd kattintson a gombra OK. Lásd a képernyőképet:

Ezután automatikusan létrejön egy Outlook e-mail. A munkalapon kiválasztott cellatartomány pedig Excel-munkafüzetként kerül mentésre és csatolásra kerül az Üzenet ablakban. Lásd a képernyőképet:

4.2 E-mail küldése, ha az Excelben egy gombra kattintanak

Ha például egy parancsgombra kell kattintania egy makró aktiválásához e-mail küldéséhez az Excelből, akkor az aktuális munkafüzetet mellékletként küldje el másoknak a munkalapon található parancsgombra kattintva. A művelet végrehajtásához kövesse az alábbi lépéseket.

1. kettyenés Fejlesztő > betétlap > Parancs gomb (ActiveX vezérlő). Ezután rajzoljon egy parancsgombot a munkalapra.

tippek: Ha már rendelkezik parancsgombbal, hagyja ki ezt a lépést.

2. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak. Az ablakban kattintson a gombra betétlap > Modue, majd illessze be a VBA-kódot (az aktuális munkafüzet Excel-ből csatolt e-mailben történő elküldésére használt kódot) a Modul (Kód) ablakba.

Kattintson ide a kód lekéréséhez.

Megjegyzések: Itt van a 2. lépésben létrehozott makró neve SendWorkbook.

3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

4. Most hozzá kell rendelnie a makrót a parancsgombhoz. Kattintson a jobb gombbal a parancsgombra, válassza ki Kód megtekintése a jobb egérgombbal.

5. Ezután a Microsoft Visual Basic for Applications ablak felugrik, láthatja, hogy a következő két sor szerepel a Lap (kód) ablak.

Private Sub CommandButton1_Click()
End Sub

6. Adja meg a meglévő makró nevét a parancsgomb aleljárásában.

7. megnyomni a más + Q gombok a Visual Basic szerkesztő, és kattintson a gombra Fejlesztő > Tervezési mód a tervezési mód kikapcsolásához.

Most a parancsgombra kattintva e-mailt küldhet az aktuális munkafüzetmel az e-mail mellékleteként.

4.3 E-mailek küldése egy megadott e-mail fiókból

Általában, ha az Excelből VBA-kóddal indít e-mailt, a feladó e-mail fiókja az alapértelmezett fiók az Outlookban. Tegyük fel, hogy több e-mail fiókot konfigurált az Outlookban, és egy bizonyos fiókot szeretne használni az e-mailek Excelből történő küldésére az alapértelmezett fiók használata helyett. A következő VBA kód segíthet.

Ebben az esetben a következő kódok szükségesek.

VBA kód 1:

Dim OutlookMail As Outlook.MailItem

VBA kód 2:

For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next

Hogyan kell használni a fenti VBA kódot?

Ebben a példában meg fogunk adni egy bizonyos e-mail fiókot, amely az aktuális munkafüzetet mellékletként küldi el az Excelből. Kérjük, tegye a következőket.

1. megnyomni a más + F11 kulcsok. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák. És akkor ellenőrizze a Microsoft Outlook 16.0 objektumkönyvtár doboz és kattintson OK a Referenciák - VBAProject párbeszédablak.

2. kettyenés betétlap > Modulok. Ezután illessze be a következő VBA-kódot a Modul (kód) ablak.

VBA-kód: Az aktuális munkafüzet elküldése e-mail mellékletként az Excelből egy megadott Outlook-fiókon keresztül

Sub SendWorkBook()
'Update by Extendoffice 20220809
Dim OutlookApp As Object
Dim OutlookMail As Outlook.MailItem 'important! Here can’t be declared as Object
Dim xAccount As Account
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(olMailItem)
On Error Resume Next
'The following lines helps to specify a certian email account
For Each xAccount In OutlookApp.Session.Accounts
  If VBA.LCase(xAccount.SmtpAddress) = VBA.LCase("") Then 'Specify your email account here
    OutlookMail.SendUsingAccount = xAccount
  End If
Next
'End
With OutlookMail
    .To = ""
    .CC = "Email Address"
    .BCC = "Email Address"
    .Subject = "kte feature"
    .Body = "Hello, please check and read this document, thank you."
    .Attachments.Add Application.ActiveWorkbook.FullName
    .Display
    '.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

3. megnyomni a F5 gombot a kód futtatásához. Ekkor megjelenik egy Outlook e-mail üzenet, láthatja, hogy a Tól től mezőt a kódban megadott e-mail fiók tölti ki.

4.4 E-mail küldése, amikor elérkezett egy dátum

Ha egy konkrét határidő alapján kell e-mailt küldenie, például az alábbi képernyőképen látható módon, van egy projekttáblázat, ha az E2:E7 tartományba eső esedékesség egyenlő vagy kevesebb, mint a mai naptól számított 7 nap (feltételezve, hogy az aktuális dátum 2022/8/4), automatikusan e-mailt küldünk a megfelelő projektvezetőknek, és értesítjük őket, hogy a projekt hamarosan lejár.

1. A projekttáblázatot tartalmazó munkalapon kattintson a jobb gombbal a lapfülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. A nyílásban Microsoft Visual Basic for Applications ablakban illessze be a következő VBA-kódot a Lap (kód) ablak.

VBA-kód: Automatikus e-mail küldése a határidő beérkezésekor

Public Sub SendMailDueDate()
'Updated by Extendoffice 20220804
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Range("E2:E7") 'Please reference the due date column range
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Range("C2:C7") 'Please reference the email addresses column range
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Range("D2:D7") 'Please reference the remark column range (the remark used to notify project leaders of the expiration of the project)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "

"
            xMailBody = ""
            xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
            xMailBody = xMailBody & "Remark : " & xRgText.Offset(i - 1).Value & vbCrLf
            xMailBody = xMailBody & ""
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.CC = "Email address"
.BCC = "Email address"
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub

Megjegyzések: A kódban

3. megnyomni a F5 gombot a kód futtatásához. Ezután, ha a lejárati dátum megfelel a feltételeknek, létrejön a megfelelő e-mail. Ebben az esetben két e-mail jön létre az alábbi képernyőképen látható módon.

5. Egy praktikus eszköz, amellyel könnyedén küldhet e-maileket az Excelből

Ha Ön kezdő VBA, előfordulhat, hogy a fenti módszereket nem könnyű kezelni. Itt ajánljuk Kutools az Excel számára'S Emaileket küld Ezzel a funkcióval egyszerűen, több kattintással küldhet e-maileket az Excelből. Kérjük, tegye a következőket.

5.1 Egyszerűen létrehozhat egy levelezőlistát, amely tartalmazza a szükséges e-mail mezőket

Az E-mailek küldése funkció alkalmazása előtt létre kell hoznia egy levelezőlistát, amely tartalmazza a szükséges e-mail mezőket. Itt a Levelezőlista létrehozása funkció segíthet.

1. kettyenés Kutools Plus > Levelezőlista létrehozása.

2. A nyílásban Levelezőlista létrehozása ablakot, a következőképpen kell konfigurálnia.

Ezután létrejön egy minta levelezőlista táblázat, az alábbi képernyőképen látható módon.

3. Most le kell cserélnie a mintában szereplő eredeti adatokat a saját terepi adataival.

Most létrehozott egy levelezőlista táblázatot. Kérem, jelentkezzen a Emaileket küld funkció, amellyel e-maileket küldhet az Excelből a létrehozott mezők alapján.

5.2 Könnyen küldhet e-maileket, beleértve a levelezőlistán létrehozott mezőket

A levelezőlista létrehozása után (kattintson, hogy megtudja, hogyan).

1. Válassza ki a teljes levelezőlistát, kattintson a gombra Kutools Plus > Emaileket küld.

2. Ban,-ben Emaileket küld párbeszédpanelen végezze el a következő konfigurációt.

3. Ezután a Kutools az Excel számára párbeszédpanelen megjelenik, hogy megtudja, hány e-mailt küldtek el, kattintson a gombra OK gombra a párbeszédpanel bezárásához.

tippek: Mehet a Elküldött elemek mappát az Outlookban, hogy ellenőrizze az elküldött e-maileket.

5.3 Egyszerűen küldhet e-maileket HTML-törzstel (beleértve a hiperhivatkozást, képet stb.)

Ez az E-mailek küldése funkció lehetővé teszi egy html e-mail létrehozását, amely tartalmaz hiperhivatkozást, képet, különböző betűméreteket és betűszíneket stb.

Után egy levelezőlista létrehozása, amely tartalmazza a szükséges e-mail mezőket,

Amikor konfigurálja az E-mailek küldése párbeszédpanelt, gazdagíthatja a törzstartalmat az eszköztár lehetőségeinek használatával.

Lásd az alábbi képernyőképet:

5.4 Egyszerűen beillesztheti az Outlook alapértelmezett aláírását e-mailek küldésekor

A fenti módszerben bemutattunk egy VBA-kódot, amely segít e-mailek küldésében az Outlook alapértelmezett aláírásával. Itt az E-mailek küldése funkciónál csak be kell jelölnie egy lehetőséget, ekkor az Outlook alapértelmezett aláírása bekerül az Excelből küldött e-mailekbe.

Után egy levelezőlista létrehozása, amely tartalmazza a szükséges e-mail mezőket,

Amikor konfigurálja az E-mailek küldése párbeszédpanelt, kattintson Opciók > Használja az Outlook aláírási beállításait.

Megjegyzések: Győződjön meg arról, hogy megjelenik egy pipa az Outlook aláírási beállításainak használata opció előtt.

Amikor a címzettek megkapják az e-mailt, láthatják az Outlook alapértelmezett aláírását az e-mail törzsének végén.

5.5 Könnyen küldhet e-maileket egy megadott e-mail fiókból

Ha az alapértelmezett fiók helyett egy bizonyos e-mail fiókot szeretne használni az e-mailek elküldésére az Excelből, az E-mailek küldése funkció is segíthet ennek egyszerű végrehajtásában.

Után egy levelezőlista létrehozása, amely tartalmazza a szükséges e-mail mezőket,

Amikor konfigurálja az E-mailek küldése párbeszédpanelt, kattintson Opciók > Elküldve, majd kattintson arra az e-mail fiókra, amelyből e-maileket szeretne küldeni.

Megjegyzések: Az e-mail fiók kiválasztása után egy pipa jelenik meg előtte.

Kattints itt ha többet szeretne megtudni erről az E-mailek küldése funkcióról.

Összefoglalva, az Excelből e-mailek küldése nagyon hasznos a mindennapi munkánkban. Ez a cikk az Excelből küldött e-mailek átfogóbb témáit tárgyalja. Ha vannak más témák vagy egyszerűbb megoldások, írjon nekem megjegyzést.

A legjobb irodai hatékonyságnövelő eszközök

🤖	Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
	Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
	Szuper keresés: Több kritérium VLookup  |   Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
	Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
	Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
	Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár   |  Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása   |  E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
	A 15 legjobb eszközkészlet:  12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Tovább ... Ingyenes letöltés...

---

Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés...