Salt la conținutul principal
 

Cum să trimiteți rapid e-mailuri în funcție de dată în celula Excel?

Autor: Sun Ultima modificare: 2024-11-07

Ați încercat vreodată să trimiteți un e-mail bazat pe dată în celula Excel? De exemplu, aici este o listă de date în coloana A și apoi doriți să trimiteți un e-mail cu subiectul, corpul mesajului către un destinatar (de asemenea, poate CC și BCC altora), cum îl puteți gestiona?

Trimiteți un e-mail pe baza datei cu VBA


Trimiteți un e-mail pe baza datei cu VBA

Pentru a trimite e-mailuri în funcție de data din Excel, puteți aplica doar un cod macro.

1. Activați foaia care conține datele și data pe care le utilizați și apăsați Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Moduleși lipiți codul de mai jos pe scriptul gol.

Sub email()
'UpdatebyExtendoffice20170831
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xAddress As String
    Dim xEmail_Subject, xEmail_Send_From, xEmail_Send_To, xEmail_Cc, xEmail_Bcc, xEmail_Body As String
    Dim xMail_Object, xMail_Single As Object
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xRgEach In xRg
        If xRgEach.Value = Date Then
            xEmail_Subject = Application.InputBox("Subject: ", "Kutools", , , , , , 2)
            xEmail_Send_From = Application.InputBox("Send from: ", "KuTools For Excel", , , , , , 2)
            xEmail_Send_To = Application.InputBox("Send to: ", "KuTools For Excel", , , , , , 2)
            If xEmail_Send_To = "" Then Exit Sub
            xEmail_Cc = Application.InputBox("CC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Bcc = Application.InputBox("BCC: ", "KuTools For Excel", , , , , , 2)
            xEmail_Body = Application.InputBox("Message Body: ", "KuTools For Excel", , , , , , 2)
            Set xMail_Object = CreateObject("Outlook.Application")
            Set xMail_Single = xMail_Object.CreateItem(0)
            With xMail_Single
                .Subject = xEmail_Subject
                .To = xEmail_Send_To
                .cc = xEmail_Cc
                .BCC = xEmail_Bcc
                .Body = xEmail_Body
                .Send
            End With
        End If
    Next
End Sub

3. clic Alerga sau apăsați F5 pentru a executa codul, apare o fereastră de dialog pentru a vă reaminti să selectați o listă de date. Vedeți captura de ecran:
Captură de ecran cu selectarea unui interval de date pentru trimiterea de e-mailuri în Excel

4. Faceți clic pe OK și continuați să specificați subiectul e-mailului, adresa de e-mail a expeditorului, adresa de e-mail a destinatarului, CC, BCC și corpul mesajului. Vedeți captura de ecran:

Captură de ecran cu introducerea subiectului e-mailului pentru e-mailul automat Săgeata spre dreapta Captură de ecran a casetei de introducere pentru a specifica adresa de e-mail a expeditorului Săgeata spre dreapta Captură de ecran a casetei de introducere pentru a specifica adresa de e-mail a destinatarului
        Săgeata în jos
Captură de ecran a casetei de introducere pentru a introduce adresa CC pentru e-mail Săgeata la stânga Captură de ecran a casetei de introducere pentru a introduce adresa BCC pentru e-mail Săgeata la stânga Captură de ecran a casetei de introducere pentru a introduce corpul mesajului de e-mail

5. clic OK > OK până la ultima și apoi a fost trimis e-mailul.
Captură de ecran care arată confirmarea că e-mailul a fost trimis

Notă: adresa de e-mail a expeditorului trebuie să fie contul implicit din Outlook.


Creați cu ușurință o listă de e-mail și trimiteți e-mailuri în Excel

Cu Kutools pentru Excel, Creați o listă de corespondență si Trimite emailuri caracteristicile vă permit să construiți rapid o listă de corespondență și să trimiteți e-mailuri personalizate direct din Excel. Puteți specifica destinatarii, subiectul și atașamentele, puteți personaliza mesajul și puteți alege să trimiteți prin Outlook sau alt server SMTP pentru campanii de e-mail ușoare.

doc trimite e-mail

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de funcțiile AI gratuite permanent! Ia-L Acum

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!