Conas ríomhphost a sheoladh go tapa bunaithe ar dháta i gcill Excel?

An ndearna tú iarracht riamh Ríomhphost a sheoladh bunaithe ar dháta i gcill Excel? Mar shampla, seo liosta de na dátaí i gcolún A, agus ansin ba mhaith leat R-phost leis an ábhar, an comhlacht teachtaireachta a sheoladh chuig faighteoir (an féidir le CC agus BCC a chur chuig daoine eile freisin), conas is féidir leat é a láimhseáil?

Seol Ríomhphost bunaithe ar dháta le VBA

Seol Ríomhphost bunaithe ar dháta le VBA

Chun ríomhphost a sheoladh bunaithe ar an dáta in Excel, ní féidir leat ach macra-chód a chur i bhfeidhm.

1. Cumasaigh an bhileog ina bhfuil sonraí agus an dáta a úsáideann tú, agus brúigh Alt + F11 eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus greamaigh thíos an cód leis an script bán. 

VBA: Seol de réir dáta

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. cliceáil Rith cnaipe nó brúigh F5 eochair chun an cód a fhorghníomhú, tagann dialóg amach le cur i gcuimhne duit liosta dáta a roghnú. Féach an pictiúr:

4. Cliceáil OK, agus lean ort ag sonrú an ábhair ríomhphoist, seoladh ríomhphoist an tseoltóra, seoladh ríomhphoist an ghlacadóra, an CC, BCC, agus an comhlacht teachtaireachta. Féach an pictiúr:

5. cliceáil OK > OK go dtí an ceann deireanach, agus ansin tá an ríomhphost seolta.

Nóta: caithfidh gurb é seoladh ríomhphoist an seoltóra an cuntas réamhshocraithe i do Outlook.