Sut i anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel?

Yn Excel, gallwch awtomeiddio'r broses o anfon e-byst yn seiliedig ar amodau penodol, megis y gwerth mewn cell benodol. Er enghraifft, efallai y byddwch am anfon e-bost yn awtomatig trwy Outlook pan fydd y gwerth yng nghell D7 yn fwy na 200. Mae'r tiwtorial hwn yn dangos sut i ddefnyddio VBA (Visual Basic for Applications) i sbarduno e-bost yn Outlook yn seiliedig ar werth cell.

Anfon e-bost yn awtomatig yn seiliedig ar werth celloedd gyda chod VBA

Anfon e-bost yn awtomatig yn seiliedig ar werth celloedd gyda chod VBA

Gwnewch fel a ganlyn i anfon e-bost yn seiliedig ar werth celloedd yn Excel.

1. Yn y daflen waith mae angen i chi anfon e-bost yn seiliedig ar ei werth cell (yma dywed y gell D7), de-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:

2. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod VBA isod i mewn i'r ffenestr cod dalen.

Cod VBA: Anfon e-bost trwy Outlook yn seiliedig ar werth celloedd yn Excel

Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
  Set xRg = Intersect(Range("D7"), Target)
    If xRg Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) And Target.Value > 200 Then
        Call Mail_small_Text_Outlook
    End If
End Sub
Sub Mail_small_Text_Outlook()
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Hi there" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
    On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "send by cell value test"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Nodiadau:

3. Gwasgwch y Alt + Q allweddi gyda'i gilydd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, pan fydd y gwerth a nodir yng nghell D7 yn fwy na 200, bydd e-bost gyda derbynwyr a chorff penodedig yn cael ei greu yn awtomatig yn Outlook. Gallwch glicio ar y anfon botwm i anfon yr e-bost hwn. Gweler y screenshot:

Nodiadau:

1. Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.

2. Os yw'r data a gofnodwyd yng nghell D7 yn werth testun, bydd y ffenestr e-bost yn cael ei popio allan hefyd.

Erthyglau cysylltiedig:

• Sut i anfon e-bost trwy Outlook pan arbedir llyfr gwaith yn Excel?
• Sut i anfon e-bost os yw cell benodol yn cael ei haddasu yn Excel?
• Sut i anfon e-bost os yw'r botwm wedi'i glicio yn Excel?
• Sut i anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel?
• Sut i anfon nodyn atgoffa neu hysbysiad e-bost os yw'r llyfr gwaith yn cael ei ddiweddaru yn Excel?