Dia duit,
Tá mé ag iarraidh ríomhphost a sheoladh bunaithe ar athrú luach cille indíreach (m.sh.> 7), leis an gceangaltán ríomhphoist agus tagairt cille ar leith do na cealla athraithe i mo chorp ríomhphoist imeachta. Tá an t-athrú luach cille indíreach síos agam bunaithe ar na critéir. Mar sin féin tá earráid 424 á fháil agam agus mé ag iarraidh athróg a shocrú chun an seoladh cille a ghlaoch isteach i mo ríomhphost. An bhféadfá cabhrú? Is dóigh liom go bhfuil mé gar.
Dim xRg Mar Raon
Dim xRgSel Mar Raon
'Socraigh raon & sprioc
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRgPre Mar Raon
Ar Lean Earráid Aghaidh
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("Q2: Q43")
Socraigh xRgPre = xRg.Precedents
Socraigh xRgSel = Trasnaigh(Sprioc, xRg)
Leabhar Oibre Gníomhach.Sábháil
Má tá xRg.Value > 7 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Eile Mura bhfuil (Ní Rud ar bith é xRgPre) Agus (Trasnaigh(Sprioc, xRgPre).Seoladh = Target.Seoladh) Ansin
Deireadh Má
Deireadh Má
Fo Deireadh
Fo-phost_small_Text_Outlook()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Haigh ann, cealla(cha)" & xRgSel.Address(Bréagach, Bréagach) & _
" sa bhileog oibre '" &Me.Name &"' are 3 days past iontógáil" & vbNewLine & vbNewLine & _
"Déan athbhreithniú agus déan teagmháil leis an treoraí" & vbNewLine & _
"Go raibh maith agat"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Laethanta ó iontógáil luaidhe"
.Comhlacht = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display’ nó .Seol
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Go raibh maith agat!
Tá mé ag iarraidh ríomhphost a sheoladh bunaithe ar athrú luach cille indíreach (m.sh.> 7), leis an gceangaltán ríomhphoist agus tagairt cille ar leith do na cealla athraithe i mo chorp ríomhphoist imeachta. Tá an t-athrú luach cille indíreach síos agam bunaithe ar na critéir. Mar sin féin tá earráid 424 á fháil agam agus mé ag iarraidh athróg a shocrú chun an seoladh cille a ghlaoch isteach i mo ríomhphost. An bhféadfá cabhrú? Is dóigh liom go bhfuil mé gar.
Dim xRg Mar Raon
Dim xRgSel Mar Raon
'Socraigh raon & sprioc
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRgPre Mar Raon
Ar Lean Earráid Aghaidh
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("Q2: Q43")
Socraigh xRgPre = xRg.Precedents
Socraigh xRgSel = Trasnaigh(Sprioc, xRg)
Leabhar Oibre Gníomhach.Sábháil
Má tá xRg.Value > 7 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Eile Mura bhfuil (Ní Rud ar bith é xRgPre) Agus (Trasnaigh(Sprioc, xRgPre).Seoladh = Target.Seoladh) Ansin
Deireadh Má
Deireadh Má
Fo Deireadh
Fo-phost_small_Text_Outlook()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Haigh ann, cealla(cha)" & xRgSel.Address(Bréagach, Bréagach) & _
" sa bhileog oibre '" &Me.Name &"' are 3 days past iontógáil" & vbNewLine & vbNewLine & _
"Déan athbhreithniú agus déan teagmháil leis an treoraí" & vbNewLine & _
"Go raibh maith agat"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "rdavis@bridge.partners"
.CC = ""
.BCC = ""
.Subject = "Laethanta ó iontógáil luaidhe"
.Comhlacht = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display’ nó .Seol
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Go raibh maith agat!