Kako hitro poslati e-pošto glede na datum v celici Excel?
Ste že kdaj poskusili poslati e-pošto na podlagi datuma v celici Excel? Tu je na primer seznam datumov v stolpcu A, nato pa želite prejemniku poslati e-poštno sporočilo z zadevo, telesom sporočila (lahko tudi CC in BCC drugim), kako lahko to obravnavate?
Pošljite e-pošto glede na datum z VBA
Pošljite e-pošto glede na datum z VBA
Če želite poslati e-pošto na podlagi datuma v Excelu, lahko uporabite samo kodo makra.
1. Omogočite list, ki vsebuje podatke in datum, ki ga uporabljate, in pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite spodnjo kodo v prazen skript.
VBA: Pošlji po datumu
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. klik Run ali pritisnite F5 tipko za izvedbo kode, odpre se pogovorno okno, ki vas opomni, da izberete seznam datumov. Oglejte si posnetek zaslona:
4. Kliknite V redu in še naprej določite zadevo e-pošte, e-poštni naslov pošiljatelja, e-poštni naslov prejemnika, CC, BCC in telo sporočila. Oglejte si posnetek zaslona:
5. klik OK > OK do zadnjega, nato pa je bilo e-poštno sporočilo poslano.
Opomba: e-poštni naslov pošiljatelja mora biti privzeti račun v vašem Outlooku.
Ustvari poštni seznam in pošlji e-pošto |
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!