Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?

Má theastaíonn uait ríomhphost a sheoladh trí Outlook chuig faighteoir áirithe bunaithe ar luach cille sonraithe in Excel. Mar shampla, nuair is mó luach cille D7 i mbileog oibre ná 200, cruthaítear r-phost go huathoibríoch. Tugann an t-alt seo modh VBA isteach chun an cheist seo a réiteach go tapa.

Seol r-phost go huathoibríoch bunaithe ar luach cille le cód VBA

Seol r-phost go huathoibríoch bunaithe ar luach cille le cód VBA

Déan mar a leanas le do thoil chun ríomhphost a sheoladh bunaithe ar luach cille in Excel.

1. Sa bhileog oibre ní mór duit ríomhphost a sheoladh bunaithe ar a luach cille (deir an cill D7 anseo), cliceáil ar dheis ar an táb bileog, agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

2. Sa popping suas Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an chóid bhileog.

Cód VBA: Seol r-phost trí Outlook bunaithe ar luach cille in 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

nótaí:

3. Brúigh an Eile + Q eochracha le chéile chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a bheidh an luach a iontrálann tú i gcill D7 níos mó ná 200, cruthófar r-phost le faighteoirí agus comhlacht sonraithe go huathoibríoch in Outlook. Is féidir leat cliceáil ar an Seol cnaipe chun an ríomhphost seo a sheoladh. Féach an pictiúr:

nótaí:

1. Níl an cód VBA ag obair ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.

2. Más luach téacs iad na sonraí a iontráladh i gcill D7, cuirfear an fhuinneog ríomhphoist amach freisin.

Earraí gaolmhara:

• 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 ríomhphost a sheoladh má tá an dáta dlite comhlíonta 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?