Nua
 Pobail

Conas bileog excel a chódú chun ríomhphost a sheoladh nuair a chomhlíontar coinníollacha áirithe i gcolún

  Excel
clazor.itec
  clazor.itec
  Dé Máirt, Meán Fómhair 20 2022
  1 Freagraí
  Cuairteanna 4.8K
0
Vótaí
Undo
Dia duit, tá mé an-nua ar fheabhas agus bhí mé ag smaoineamh an féidir cód excel a bhunú ar bhealach a chuirfeadh ríomhphost chuig duine ar leith nuair a mharcáiltear luach i gcolún mar chríochnaithe. Mar shampla, má tá JobX in A2, agus sa ró chéanna tá ceannlitreacha an bhainisteora tionscadail sa tsraith sin, B2, marcáiltear an post seo i C2, nuair a mharcáiltear colún C críochnaithe, ba cheart ríomhphost a sheoladh chuig an PM a bhfuil a chuid ceannlitreacha atá sa tsraith sin. Fuair ​​​​mé cód a fhéadfaidh ríomhphost a sheoladh nuair a mharcáiltear cill colún mar chríochnaithe, ach bhí sé ag smaoineamh an féidir liom a bheith níos sainiúla cosúil le ríomhphost a sheoladh chuig duine ar leith nuair a chomhlíontar coinníollacha áirithe. Go raibh maith agat,
Chris
0
Is sine An Chéad  
Amanda Lee
Amanda Lee
1 bliain ó shin
·
#3076
0
Vótaí
Undo
Dia duit ann,

Bain triail as an gcód thíos :) 
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

Luaigh tú gur mian leat ríomhphost a sheoladh chuig an PM a bhfuil a n-intials mar atá sa tsraith chéanna agus a mharcáil mar chríochnaithe. An bhfuil a sheoladh ríomhphoist ar an tsraith chéanna? Cuidíonn an cód sa 6ú sraith le ceannlitreacha na mbainisteoirí tionscadail a aimsiú, is féidir leat é a athrú chun an seoladh ríomhphoist a aimsiú.

Athraigh an teaghrán "déanta" sa 5ú ró go dtí an teaghrán iarbhír a úsáideann tú chun an post críochnaithe a mharcáil.

Tabhair faoi deara gur féidir leat an blúire thíos a athrú de réir do chuid riachtanas.
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Le xOutMail
.Chun = xTo
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid
' .Seol
Deireadh Le

Má tá aon cheist agat, ná bíodh drogall ort ceist a chur orm.

Amanda
  • Page:
  • 1
Níl aon fhreagraí déanta don phost seo go fóill.