Skip to main content

Déan iniúchadh ar an nua, leagan saor in aisce de Kutools le haghaidh Outlook inniu!

 

Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?

Údar: Siluvia Athraithe Deiridh: 2022-09-23

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 Sub

nó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:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

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á!