Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?
Mar a léirítear sa screenshot thíos, má tá an dáta dlite i gcolún C níos lú ná nó cothrom le 7 lá (mar shampla, is é 2017/9/13 an dáta reatha), seoltar ríomhphost chuig an bhfaighteoir sonraithe i gcolún A agus an déantar ábhar sonraithe i gcolún B a scaipeadh i gcorp an ríomhphoist. Conas a d'fhéadfá a dhéanamh chun é a bhaint amach? Soláthraíonn an t-alt seo cód VBA chun cabhrú leat an tasc seo a chur i gcrích.
Seol r-phost má chomhlíontar an dáta dlite le cód VBA
Seol r-phost má chomhlíontar an dáta dlite le cód VBA
Déan mar a leanas le do thoil meabhrúchán ríomhphoist a sheoladh má tá an dáta dlite comhlíonta in Excel.
1. Brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil le do thoil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Mhodúil.
Cód VBA: Seol r-phost má tá an dáta dlite dúnta in Excel
Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim i As Long
On Error Resume Next
Set xRgDate = Application.InputBox("Please select the due date column:", "KuTools For Excel", , , , , , 8)
If xRgDate Is Nothing Then Exit Sub
Set xRgSend = Application.InputBox("Please select the recipients?email column:", "KuTools For Excel", , , , , , 8)
If xRgSend Is Nothing Then Exit Sub
Set xRgText = Application.InputBox("Select the column with reminded content in your email:", "KuTools For Excel", , , , , , 8)
If xRgText Is Nothing Then Exit Sub
xLastRow = xRgDate.Rows.count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For i = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(i - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 7 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(i - 1).Value
xMailSubject = xRgText.Offset(i - 1).Value & " on " & xRgDateVal
vbCrLf = "<br><br>"
xMailBody = "<HTML><BODY>"
xMailBody = xMailBody & "Dear " & xRgSendVal & vbCrLf
xMailBody = xMailBody & "Text : " & xRgText.Offset(i - 1).Value & vbCrLf
xMailBody = xMailBody & "</BODY></HTML>"
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Subnótaí: An líne Más CDate (xRgDateVal) - Dáta <= 7 agus CDate (xRgDateVal) - Dáta> 0 Ansin sa chód VBA ciallaíonn sé go gcaithfidh an dáta dlite a bheith níos mó ná 1 lá agus níos lú ná nó cothrom le 7 lá. Is féidir leat é a athrú de réir mar is gá duit.
3. Brúigh an Eochair F5 chun an cód a rith. Sa chéad popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh raon na gcolún dáta dlite le do thoil agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:
4. Ansin an dara ceann Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh an raon colún comhfhreagrach ina bhfuil seoltaí ríomhphoist na bhfaighteoirí, agus cliceáil an OK cnaipe. Féach an pictiúr:
5. Sa cheann deireanach Kutools le haghaidh Excel bosca dialóige, roghnaigh an t-ábhar is mian leat a thaispeáint sa chorp ríomhphoist, agus ansin cliceáil ar an OK cnaipe.
Ansin cruthófar r-phost go huathoibríoch leis an bhfaighteoir sonraithe, an t-ábhar agus an comhlacht atá liostaithe má tá an dáta dlite i gcolún C níos lú ná nó cothrom le 7 lá. Cliceáil le do thoil ar an Seol cnaipe chun an ríomhphost a sheoladh.
nótaí:
1. Freagraíonn gach ríomhphost cruthaithe do dháta dlite. Mar shampla, má chomhlíonann trí dháta dlite na critéir, cruthófar trí theachtaireacht ríomhphoist go huathoibríoch.
2. Ní spreagfar an cód seo mura bhfuil dátaí ann a chomhlíonann na critéir.
3. Níl an cód VBA ag obair ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.
Earraí gaolmhara:
- Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
- Conas ríomhphost a sheoladh trí Outlook nuair a shábháiltear leabhar oibre in Excel?
- Conas ríomhphost a sheoladh má athraítear cill áirithe in Excel?
- Conas ríomhphost a sheoladh má chliceáiltear an cnaipe in Excel?
- Conas meabhrúchán ríomhphoist nó fógra ríomhphoist a sheoladh má dhéantar an leabhar oibre a nuashonrú in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
