Sut i anfon e-bost yn gyflym yn seiliedig ar ddyddiad yng nghell Excel?
Ydych chi erioed wedi ceisio anfon E-bost yn seiliedig ar ddyddiad yng nghell Excel? Er enghraifft, dyma restr o ddyddiadau yng ngholofn A, ac yna rydych chi am anfon E-bost gyda'r pwnc, corff negeseuon at dderbynnydd (hefyd a all CC a BCC at eraill), sut allwch chi ei drin?
Anfon E-bost yn seiliedig ar ddyddiad gyda VBA
Anfon E-bost yn seiliedig ar ddyddiad gyda VBA
I anfon e-bost yn seiliedig ar y dyddiad yn Excel, dim ond cod macro y gallwch ei gymhwyso.
1. Galluogi'r ddalen sy'n cynnwys data a'r dyddiad rydych chi'n ei ddefnyddio, a gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan y cod i'r sgript wag.
VBA: Anfon yn ôl dyddiad
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. Cliciwch Run botwm neu wasg F5 yn allweddol i weithredu'r cod, mae deialog yn ymddangos i'ch atgoffa i ddewis rhestr o ddyddiad. Gweler y screenshot:
4. Cliciwch ar OK, a pharhewch i nodi'r pwnc e-bost, cyfeiriad e-bost yr anfonwr, cyfeiriad e-bost y derbynnydd, y CC, BCC, a'r corff negeseuon. Gweler y screenshot:
5. Cliciwch OK > OK tan yr un olaf, ac yna mae'r e-bost wedi'i anfon.
Nodyn: rhaid i gyfeiriad e-bost yr anfonwr fod y cyfrif diofyn yn eich Camre.
Creu Rhestr Bostio ac Anfon E-byst |
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!