Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako poslati e-pošto, če je v programu Excel kliknjen gumb?

Če želite poslati e-pošto prek programa Outlook, kliknite gumb v Excelovem delovnem listu, kako lahko to naredite? Ta članek bo predstavil metodo VBA, ki jo bo podrobneje opisala.

Pošljite e-poštno sporočilo, če kliknete gumb s kodo VBA


Preprosto pošiljanje e-pošte prek Outlook na podlagi ustvarjenega seznama poštnih naslovov:

O Pošlji e-pošto uporabnost Kutools za Excel pomaga uporabnikom, ki pošiljajo e-pošto prek Outlooka na podlagi ustvarjenega seznama poštnih seznamov v Excelu. Glej zaslonski posnetek:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Pošljite e-poštno sporočilo, če kliknete gumb s kodo VBA


Prosimo, naredite kot sledi, da pošljete e-pošto prek programa Outlook, če kliknete gumb za ukaze v Excelovem delovnem zvezku.

1. V svoj delovni list vstavite gumb za ukaz s klikom Razvojni > Vstavi > Gumb za urejanje (nadzor ActiveX). Prikaz slike:

2. Z desno miškino tipko kliknite vstavljeno gumba ukaza in nato kliknite Ogled kode iz menija z desnim klikom kot pod prikazom zaslona.

3. V odprtju Microsoft Visual Basic za aplikacije okno, zamenjajte izvorno kodo v oknu Code z naslednjim scenarijem VBA.

VBA koda: Pošlji e-pošto, če je v Excelu kliknjen gumb

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Opombe:

1). Prosimo, spremenite telo e-pošte, kot ga potrebujete v xMailBody vrstico v kodi.

2). Zamenjajte Email naslov s prejemnikom e-poštni naslov v vrstici .To = "E-poštni naslov".

3). Določite prejemnike Cc in Bcc, kot jih potrebujete .CC = "" in .Bcc = "" oddelkov.

4). Spremenite zadevo e-pošte v vrstico .Subject = "Preizkusite e-poštno sporočilo s klikom na gumb".

4. Pritisnite druga + Q tipke za hkratno zapiranje Microsoft Visual Basic za aplikacije okno.

5. Izklopite način oblikovanja tako, da kliknete Razvojni > Način oblikovanja. Prikaz slike:

Od zdaj naprej vsakič, ko kliknete gumb za urejanje, bo samodejno ustvarjen e-poštni naslov z določenimi prejemniki, predmetom in telesom. E-poštno sporočilo pošljite s klikom na Pošlji gumb.

Opombe: Kodo VBA deluje le, če uporabljate Outlook kot vaš e-poštni program.


Sorodni članki:



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kris · 3 days ago
    Hi,

    Is there a way to change the file name to the current date when it attaches to the email?
  • To post as a guest, your comment is unpublished.
    Grant · 11 days ago
    How can I attach the Active Worksheet to the email when I press the button?
  • To post as a guest, your comment is unpublished.
    marcus · 13 days ago
    I want to send the excel worksheet in the email but it doesnt send it. How do you write code to send document as email
  • To post as a guest, your comment is unpublished.
    kaitlyn k. · 26 days ago
    Do you have to be an excel user when pushing the button to send an email? or just the person receiving the email has to be an outlook user?
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    Hi,

    How can I get the mail to automatically add my signature from outlook?