Nghastell Newydd Emlyn
 Cymuned

Sut i godio taflen excel i anfon e-bost pan fydd amodau penodol yn cael eu bodloni mewn colofn

  Excel
clazor.itec
  clazor.itec
  Dydd Mawrth, Medi 20 2022
  1 atebion
  Ymweliadau 4.9K
0
Pleidleisiau
Dadwneud
Helo, rwy'n newydd iawn i ragori ac roeddwn yn meddwl tybed a yw'n bosibl sefydlu cod excel mewn ffordd a fyddai'n anfon e-bost at berson penodol pan fydd gwerth mewn colofn wedi'i farcio fel wedi'i gwblhau. Er enghraifft, os yw JobX yn A2, ac yn yr un rhes mae llythrennau blaen y rheolwyr prosiect yn y rhes honno, B2, mae'r swydd hon yn cael ei marcio wedi'i chwblhau yn C2, pan fydd colofn C yn cael ei marcio wedi'i chwblhau, dylid anfon e-bost at y PM y mae ei lythrennau blaen sydd yn y rhes honno. Deuthum o hyd i god sy'n gallu anfon e-bost pan fydd cell colofn yn cael ei marcio fel un wedi'i chwblhau, ond roeddwn yn meddwl tybed a allaf fod yn fwy penodol fel anfon e-bost at berson penodol pan fydd amodau penodol yn cael eu bodloni. Diolch,
Chris
0
Hynaf yn gyntaf  
Amanda Lee
Amanda Lee
1 flwyddyn yn ôl
·
#3076
0
Pleidleisiau
Dadwneud
Hi 'na,

Rhowch gynnig ar y cod isod :) 
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xRg As Range

    If Target.Cells.Count > 1 Then Exit Sub

    If Intersect(Range("c:c"), Target) Is Nothing Then Exit Sub

    If Target.Value = "done" Then

        Set xRg = Target.Offset(0, -1) 'Find email address

        Call Mail_small_Text_Outlook(xRg.Value)

    End If

    

End Sub



Sub Mail_small_Text_Outlook(ByVal xTo As String)

    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 = xTo

        .CC = ""

        .BCC = ""

        .Subject = "send by cell value test"

        .Body = xMailBody

        .Display   'or use

'        .Send

    End With

    Set xOutMail = Nothing

    Set xOutApp = Nothing

End Sub

Soniasoch eich bod am anfon e-bost at y PM y mae ei lythrennau blaen fel yn yr un rhes â'r hyn a nodwyd fel rhai wedi'u cwblhau. A yw ei gyfeiriad e-bost ar yr un rhes? Mae'r cod yn y 6ed rhes yn helpu i ddod o hyd i lythrennau blaen y rheolwyr prosiect, gallwch ei newid i ddod o hyd i'r cyfeiriad e-bost.

Newidiwch y llinyn "wedi'i wneud" yn y 5ed rhes i'r llinyn a ddefnyddiwch i nodi'r dasg a gwblhawyd.

Sylwch y gallwch chi newid y pyt isod i'ch anghenion.
xMailBody = "Helo yno" & vbNewLine & vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
"Dyma llinell 2"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = xTo
.CC = ""
.BCC = ""
.Subject = "anfon trwy brawf gwerth celloedd"
.Corff = xMailBody
.Display' neu ddefnyddio
' .Anfon
Diwedd Gyda

Os oes gennych unrhyw gwestiynau, peidiwch ag oedi i ofyn i mi.

Amanda
  • Tudalen:
  • 1
Ni wnaed unrhyw atebion i'r swydd hon eto.