Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com enviar correu electrònic si es fa clic a botó a Excel?

Suposant que necessiteu enviar un correu electrònic a Outlook, feu clic a un botó de full d'Excel, com ho podeu fer? Aquest article introduirà un mètode VBA per aconseguir-ho en detalls.

Envia un correu electrònic si es fa clic al botó amb el codi VBA


Envieu correus electrònics fàcilment mitjançant Outlook basats en la llista de correu creada:

El Enviar correus electrònics La utilitat de Kutools for Excel ajuda als usuaris a enviar correu electrònic a través d'Outlook basant-se en la llista de correu creada a Excel. Veure captura de pantalla:

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Baixada i prova gratuïta Ara!


Envia un correu electrònic si es fa clic al botó amb el codi VBA


Feu el següent per enviar un correu electrònic a Outlook si es fa clic al botó de comandament al llibre de treball d'Excel.

1. Inseriu un botó de comandament al full de treball fent clic Revelador > Insereix > Botó de comandament (control ActiveX). Mostra la captura de pantalla:

2. Feu clic amb el botó secundari del ratolí al botó de comandament inserit i feu clic a Veure codi des del menú que fa clic amb el botó dret com a sota de la captura de pantalla.

3. A l'obertura Microsoft Visual Basic per a aplicacions finestra, substituïu el codi original a la finestra Codi amb el següent script VBA.

Codi VBA: envieu un correu electrònic si es fa clic a un botó a Excel

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

notes:

1). Canvieu el cos del correu electrònic tal com necessiteu a la finestra xMailBody línia en el codi.

2). Reemplaça el Correu electrònic amb l'adreça electrònica del destinatari en línia .To = "Adreça de correu electrònic".

3). Especifiqueu els destinataris de Cc i Bcc que necessiteu . CC = "" i .Bcc = "" seccions.

4). Canvieu el tema del correu electrònic en línia .Subject = "Envia un correu electrònic per enviar un botó fent clic a".

4. Premeu el botó Alt + Q tecles simultàniament per tancar la Microsoft Visual Basic per a aplicacions finestra.

5. Desactiveu el mode de disseny fent clic Revelador > Mode de disseny. Mostra la captura de pantalla:

A partir d'ara, cada vegada que feu clic al botó de comandament, es crearà un correu electrònic automàticament amb els destinataris, el subjecte i el cos especificats. Envieu el correu electrònic fent clic al botó enviar botó.

Nota: El codi VBA només funciona quan s'utilitza Outlook com a programa de correu electrònic.


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

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.
    Abi · 22 days ago
    Can I reference the value in a cell in the subject with string? Some variation of the below?

    .Subject = "New Event:" & Target.Address = "$B$38"
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Abi,
      Please change the code to .Subject = "New Event:" & [B38].
      Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Laurie · 1 months ago
    Is it possible to, instead of sending the attachment in the email, to send a hyperlink to the file (located on SharePoint)?
    • To post as a guest, your comment is unpublished.
      crystal · 4 days ago
      Hi Laurie,
      Can't help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Glenn · 1 months ago
    using this VBA code, can I reference cell information within the body of the email? For instance, how would I reference cell values to the code below?

    xMailBody = "Body content" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2"

    Thanks,
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Glenn,
      Please apply the following code. Thank you for your comment.
      xMailBody = [B5]
  • To post as a guest, your comment is unpublished.
    Hannah · 2 months ago
    Is it possible to add a second email button within the same worksheet? When I try to do it, it is connecting to the code from the original email button. thanks.
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi,
      You need to assign different codes to each button.
  • To post as a guest, your comment is unpublished.
    erick · 5 months ago
    using this VBA code, can I reference cell information within the body of the email? For instance, how would I reference cell values to the code below?

    xMailBody = "Body content" & vbNewLine & vbNewLine & _
    "This is line 1" & vbNewLine & _
    "This is line 2"

    Also, using the (.TO = "email address") code. how can I have the "email address" pull in an email address from a cell in the column next to it.


    Thanks,