Note: The other languages of the website are Google-translated. Back to English

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í:

1). Sa chód VBA, D7 agus luach> 200 an luach cille agus cille a chuirfidh tú ríomhphost bunaithe air.
2). Athraigh an comhlacht ríomhphoist de réir mar is gá duit xMailBody líne sa chód.
3). Cuir seoladh ríomhphoist an fhaighteora in ionad an Seoladh Ríomhphoist .To = "Seoladh Ríomhphoist".
4). Agus sonraigh na faighteoirí Cc agus Bcc mar is gá duit i .CC = “” agus Bcc = “” ailt.
5). Ar deireadh athraigh an t-ábhar ríomhphoist i líne .Subject = "seol trí thástáil luach cille".

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.


Seol r-phost go héasca trí Outlook bunaithe ar réimsí liosta seoltaí cruthaithe in Excel:

An Seol Ríomhphost fóntais de Kutools le haghaidh Excel cuidíonn sé le húsáideoirí ríomhphost a sheoladh trí Outlook bunaithe ar liosta postála cruthaithe in Excel.
Íoslódáil agus bain triail as anois! (Conair saor in aisce 30 lá)


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (290)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is ceart an cód a mhodhnú, le cur i bhfeidhm ar raon iomlán cealla?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Debbie a chara,
Déan iarracht thíos cód VBA chun an fhadhb a réiteach.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Mura bhfuil (Sprioc, Raon ("A1:D4")) Rud ar bith) Agus (Sprioc.Luach > 200) Ansin
Cuir glaoch ar Mail_small_Text_Outlook
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 = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Seoladh ríomhphoist d'fhaighteoir"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá deacracht agam an cód seo a fháil chun leid má athraítear an luach sa chill go hindíreach. Mar shampla, má tá cothromóid Suime agam ag athrú an luach seo go huathoibríoch. Nuair a ritheann an chothromóid agus go dtéann an luach os cionn an luach socraithe chun an ríomhphost a spreagadh, ní dhéanann sé amhlaidh, mura n-athraíonn mé an uimhir go fisiciúil mé féin. An bhfuil bealach ann chun an ríomhphost a leid fiú má athraítear é go hindíreach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Iordáin a chara,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Ná déan dearmad, le do thoil, seoladh ríomhphoist an fhaighteora a chur in ionad an "Seoladh Ríomhphoist" sa chód. Go raibh maith agat.

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 ("D7")
Socraigh xRgPre = xRg.Precedents
Má tá xRg.Value > 200 Ansin
Má tá Target.Address = xRg.Address Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Eile Mura bhfuil (Ní Rud ar bith é xRgPre) Agus (Trasnaigh(Sprioc, xRgPre).Seoladh = Target.Seoladh) Ansin
Cuir glaoch ar Mail_small_Text_Outlook
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 = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Seoladh Ríomhphoist"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'athraigh mé an cód molta le go n-oibreoidh sé do m'iarratas.
Athraíodh xRg = Raon ("C2:C40") agus Má tá xRg.Value = -1.

Is í an tsaincheist atá agam ná am ar bith go bhfuil athrú ar aon chill agus chomh fada agus is é ceann de na cealla i mo raon ná = -1 cuirfidh sé Mail_small_Text_Outlook air.
Tá mé ag iarraidh glaoch a chur ach amháin má athraítear aon chill i mo raon go hindíreach go -1.
Bhí mé ag smaoineamh freisin an bhféadfaí agus conas a bheadh ​​sé indéanta dhá chritéar a chomhlíonadh.
Cosúil le raon seiceála A agus raon B agus má chomhlíonann siad feidhm glaoigh ar na critéir.

Go raibh maith agat roimh ré as an gcabhair. Tá mé nua maidir leis seo go léir ach ag léamh tríd an snáithe seo tá mé thart ar 90% ann.


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 ("C2: C40")
Socraigh xRgPre = xRg.Precedents
Má xRg.Value = -1 Ansin
Má tá Target.Address = xRg.Address Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Eile Mura bhfuil (Ní Rud ar bith é xRgPre) Agus (Trasnaigh(Sprioc, xRgPre).Seoladh = Target.Seoladh) Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Deireadh Má
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'úsáid mé an cód seo agus is é an t-aon athrú amháin a bhí agam ná gur chuir mé i bhfeidhm ar cholún iomlán é [Socraigh xRg = Raon ("D4: D13")]. Anois spreagann an teagmhas aon uair a dhéantar ríomh is cuma an bhfuil an chomhla i gColún D faoi bhun an spriocluach. Aon smaoineamh cén fáth go bhfuil?


Dim Xrg Mar Raon
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 ("D4: D13")
Socraigh xRgPre = Xrg.Precedents
Má tá Xrg.Value < 1200 Ansin
Má tá Target.Address = Xrg.Address Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Eile Mura bhfuil (Ní Rud ar bith é xRgPre) Agus (Trasnaigh(Sprioc, xRgPre).Seoladh = Target.Seoladh) Ansin
Cuir glaoch ar Mail_small_Text_Outlook
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 = "Dia duit" & vbNewLine & _
"Tástáil vba" _
& vbNewLine&_
"Líne 2."
Ar Lean Earráid Aghaidh
Le xOutMail
.Chun=""
.CC = ""
.BCC = ""
.Subject = "Uaththástáil Ríomhphoist"
.Comhlacht = xMailBody
.Dráma
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic

Fo Deireadh


Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit

Tá trioblóid orm mar ní mór faighteoir ríomhphoist a chur leis arís agus arís eile ceann ar cheann. Le do thoil a threorú más féidir liosta de na faighteoirí ríomhphoist a chur leis an fheidhm seo ionas go roghnóidh an fheidhm an seoladh ríomhphoist ón liosta seoltaí ríomhphoist a cuireadh ar fáil nó an liosta a uaslódáil agus seolann an fheidhm an ríomhphost, atá comhdhéanta cheana féin chuig an bhfaighteoir atá ag teastáil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Henry, a chara,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Cuir an script VBA isteach i modúl do bhileog oibre. Nuair a chomhlíonann luach sa chill sonraithe an coinníoll, a Kutools le haghaidh Excel bosca dialóg pop suas, roghnaigh na cealla ina bhfuil seoltaí ríomhphoist na bhfaighteoirí agus ansin cliceáil ar an OK cnaipe. Ansin tá ríomhphoist le faighteoirí sonraithe á n-oscailt. Seol iad le do thoil mar is gá duit.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("D7")
Má tá xRg = Sprioc agus Sprioc.Luach > 200 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Deireadh Má
Fo Deireadh
Fo-phost_small_Text_Outlook()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xRgMsg Mar Raon
Dim xCell Mar Raon
Socraigh xRgMsg = Application.InputBox("Roghnaigh na cealla seoltaí:"", "Kutools for Excel", , , , , , 8)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Do Gach xCell In xRgMsg
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
Le xOutMail
.Chun = xCell.Value
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
xOutApp = Ní dhéanfaidh aon ní
xOutMail = Ní dhéanfaidh aon ní
Ar Aghaidh
Ar Earráid TéighTo 0
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an seolfar ríomhphost go huathoibríoch é, gan aon bhriseadh láimhe
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Brahma a chara,
Más mian leat an ríomhphost a sheoladh go díreach gan a thaispeáint, cuir ".Send" in ionad an líne ".Display" le ".Send" sa chód VBA thuas.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit chuir mé an script chéanna ach níl sé ag obair le do thoil cabhrú liom sa 1ú chuid

Dim xRg Mar Raon

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("D7")
Má tá xRg = Sprioc Agus Target.Value = 200 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Deireadh Má

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Basil a chara,
An bhfuil aon rabhadh agus an cód á rith?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, conas a dhéanfá an cód seo a mhodhnú chun a sheiceáil an bhfuil an teaghrán "Níl aon mheaitseáil" ag grúpa cealla agus seol ríomhphost má tá.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A chara Jose, a chara
Bain triail as thíos cód VBA. Nuair a bheidh an cód á rith, tagann bosca dialóige suas, roghnaigh an raon a dhéanfaidh tú seiceáil le haghaidh teaghrán, agus cliceáil ar an OK cnaipe. mura bhfuil an teaghrán ann, gheobhaidh tú bosca dialóige pras. Má tá an teaghrán sa raon, taispeánfar ríomhphost le faighteoir, ábhar agus corp sonraithe.

Fo-Sheoladh Ríomhphost()
Dim I Chomh Fada
Dim J Chomh fada
Dim xRg Mar Raon
Dim xArr
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xFlag As Boole
Ar Lean Earráid Aghaidh
Socraigh xRg = Application.InputBox ("Roghnaigh raon", "Kutools le haghaidh Excel", Selection.Address, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
xArr = xRg.Value
xFlag = Bréagach
Le haghaidh I = 1 Go UBound(xArr)
Le haghaidh J = 1 Go UBound(xArr, 2)
Má tá xArr(I, J) = "Gan Meaitseáil" Ansin
xFlag = Fíor
Deireadh Má
Ar Aghaidh
Ar Aghaidh
Má xFlag Ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Le xOutMail
.To = "Seoladh ríomhphoist"
.CC = ""
.BCC = ""
.Subject = "Meaitseáil"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Eile
MsgBox "Níor aimsíodh aon luach comhoiriúnaithe", vbInformation, "KuTools for Excel"
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an cód seo a athrú chun gráid mac léinn a sheoladh chuig tuismitheoirí. Más é colún A an grád agus más é Colún B an ríomhphost tuismitheoir. Ba mhaith liom ríomhphost a chur isteach do gach dalta le F mar ghrád.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Frank a chara,
Is féidir leis an gcód VBA thíos cabhrú leat an fhadhb a réiteach. Go raibh maith agat.

Fo-phost_small_Text_Outlook()
Dim xRg Mar Raon
Dim I Chomh Fada
Dim xRows Chomh fada
Dim xVal As Teaghrán
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Ar Lean Earráid Aghaidh
Socraigh xRg = Application.InputBox("Roghnaigh colún grád agus an colún ríomhphoist (dhá cholún)", "Kutools for Excel", Selection.Address, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
xRows = xRg.Rows.Count
Socraigh xRg = xRg(2)
Chun I = 1 Go xRows
xVal = xRg.Offset(I, -1).Text
Má tá xVal = "F" Ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo é grád do linbh" & xRg.Offset(I, -1).Text
Le xOutMail
.to = xRg.Offset(I, 0).Text
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Deireadh Má
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá liosta seoltaí ríomhphoist agam i gcomhad excel cheana féin, conas is féidir liom an cód a mhodhnú chun seoladh ríomhphoist an duine a roghnú go huathoibríoch más é > 7 a chillín D200?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Cuir an script VBA isteach i modúl do bhileog oibre. Nuair a chomhlíonann luach sa chill sonraithe an coinníoll, a Kutools le haghaidh Excel bosca dialóg pop suas, roghnaigh na cealla ina bhfuil seoltaí ríomhphoist na bhfaighteoirí agus ansin cliceáil ar an OK cnaipe. Ansin tá ríomhphoist le faighteoirí sonraithe á n-oscailt. Seol iad le do thoil mar is gá duit.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("D7")
Má tá xRg = Sprioc agus Sprioc.Luach > 200 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Deireadh Má
Fo Deireadh
Fo-phost_small_Text_Outlook()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xRgMsg Mar Raon
Dim xCell Mar Raon
Socraigh xRgMsg = Application.InputBox("Roghnaigh na cealla seoltaí:"", "Kutools for Excel", , , , , , 8)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Do Gach xCell In xRgMsg
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
Le xOutMail
.Chun = xCell.Value
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
xOutApp = Ní dhéanfaidh aon ní
xOutMail = Ní dhéanfaidh aon ní
Ar Aghaidh
Ar Earráid TéighTo 0
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá deacracht agam ríomhphost a sheoladh trí Outlook. Faighim an earráid ag rá "Tá clár ag iarraidh ríomhphost a sheoladh ar do shon. Mura bhfuil tú ag súil leis, diúltaigh agus deimhnigh go bhfuil do bhogearraí frithvíreas cothrom le dáta"
Cabhraigh le do thoil mar níl mé in ann é a uathoibriú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm Mayank,
Oibríonn an cód go maith i mo chás. Dealraíonn sé go bhfuil rud éigin faoi fheidhm "seol thar ceann" cumraithe i do Outlook. Seiceáil Pease chun é.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, cén cód a úsáidfinn má táim ag iarraidh ríomhphost a sheoladh chuig bainisteoir a bhfuil liosta de na torthaí a bhfuil cainníocht > 200 acu uair sa mhí (bunaithe ar do shampla) nó a rachaidh in éag go luath (bunaithe ar dhátaí)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Lá maith
B'fhéidir gurb é an modh san Airteagal seo "Conas ríomhphost a sheoladh má tá an dáta dlite comhlíonta in Excel?" féidir cabhrú leat.
Lean an nasc seo le do thoil: https://www.extendoffice.com/documents/excel/4664-excel-send-email-if-due-date-has-been-met.html
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir liom an cód a chur in eagar chun ríomhphost a sheoladh bunaithe ar dháta sa chill. Mar shampla, teastaíonn uaim doiciméad a athbhreithnítear gach 15 mhí agus ba mhaith liom ríomhphost a chiceáil amach ag 12 mhí chuig seoladh ríomhphoist ag rá gur gá an doiciméad a athbhreithniú. Tá sé agam anois ríomhphost a sheoladh go huathoibríoch trí .Taispeáin go .Seol a athrú agus oibríonn sé go hiontach mar atá scríofa, ach cad is gá dom a athrú chun feidhm dáta a úsáid seachas slánuimhir??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Conas is féidir leat Raon Il a chur le "Socraigh xRg = Raon ("D7")". Ba mhaith liom é a chur in eagar agus Raon a chur leis ("D7: F7"). Mar sin féin tá earráid á fháil agam maidir le Earráid Ama Reáchtála 13, Cineál Mímheaitseála agus tá mé ag dul go dtí Má tá xRg = Sprioc Agus Luach Targaid> 2 Ansin.


Conas is féidir liom an fhadhb seo a réiteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Déan iarracht thíos cód VBA chun an fhadhb a réiteach.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Mura bhfuil (Sprioc, Raon ("D7:F7")) Rud ar bith) Agus (Sprioc.Luach > 200) Ansin
Cuir glaoch ar Mail_small_Text_Outlook
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 = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Seoladh ríomhphoist d'fhaighteoir"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
d'oibrigh sé go foirfe .. Go raibh maith agat .. :):)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl sé ag obair domsa mar is toradh ar fhoirmle é an luach in D7. Cad a tharlaíonn má tá foirmle i gcill D7, m.sh. D7 =2*120? Comhlíonann sé an coinníoll fós ach níl aon rud ag tarlú. Cabhrú le do thoil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas an cód a stopadh ó bheith ag rith .i. ná spreag an ríomhphost nuair nach bhfuil an coinníoll comhlíonta?

fiú nuair a D7 < 200, tá mé fós leid ar an ríomhphost.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Déantar an cód a nuashonrú sa phost agus an fhadhb a réiteach. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi

Go raibh míle maith agat as an gCód VBA seo agus na treoracha a phostáil. Nuair a fuair mé é mhothaigh mé go raibh an lotto buaite agam. Mar sin féin tá mé i bhfostú ar rud éigin agus mar sin tá súil agam gur féidir leat cabhrú (tá mé nua do VBA, níl ach tuiscint an-bhunúsach agam).

Tá an cód cóipeáilte agam agus d'athraigh mé an luach cille agus cille le roghnú ó raon má chomhlíontar critéir. Tá triail agus tástáil déanta agam agus oibríonn sé agus fuair mé ríomhphost chuig outlook bunaithe ar na critéir.

1) Mar sin féin, ní féidir liom a dhéanamh amach conas an cód VBA a reáchtáil go huathoibríoch nuair a osclaíonn mé an bhileog oibre excel, seachas a bheith ag cliceáil ar an bhfeidhmchlár VBA agus rith a roghnú. An bhféadfá comhairle a thabhairt má tá leid breise le clóscríobh isteach sa chód VBA thuas a dhéanfaidh é seo nó an gá é a dhéanamh ar leithligh.

2) Chomh maith leis sin an bhfuil bealach ann chun an cód VBA a fháil chun ríomhphost a sheoladh chuig duine má tá an dáta dlite le haghaidh mír áirithe mar a léirítear i sampla thíos.
colún folaithe ríomhphoist
Ainm

Nós imeachta
Nós imeachta uimh.1 dáta dlite tá
Nós imeachta uimh. 2 dáta dlite uimh

Bheadh ​​​​go leor daoine agam sa scarbhileog (ag dul trasna go cothrománach i ndiaidh a chéile) agus d'fhéadfaí béim a chur ar 'Tá' le haghaidh nósanna imeachta éagsúla thar téarma (atá liostaithe go hingearach i gcolún A. An bhfuil bealach ann cód VBA a chruthú a ritheann le haghaidh rud éigin mar seo - má tá 'Tá' le haghaidh 'Duine 1', seol ríomhphost chuig 'duine 1' le 'nós imeachta Uimh #' (nó uimhreacha) agus dáta(í) dlite.

Ní miste liom dá mbeadh orm cód VBA ar leith a shocrú do gach duine chomh fada agus a sheol sé ríomhphost de na doiciméid go léir a bhí thar téarma don duine sin agus na dátaí dlite.

Ag súil gur féidir leat cabhrú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ann, a chara,
Bain triail as an gcód VBA thíos. Go raibh maith agat as do thuairim.

Fo-phost_small_Text_Outlook()
Dim xRg Mar Raon
Dim xCell Mar Raon
Dim I Chomh Fada
Dim xRows Chomh fada
Dim xCols Chomh fada
Dim xVal As Teaghrán
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Ar Lean Earráid Aghaidh
Socraigh xRg = Application.InputBox("Roghnaigh an raon ina bhfuil an luach cille a sheolfaidh tú ríomhphoist bunaithe ar:"", "Kutools for Excel", Selection.Address, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
xRows = xRg.Rows.Count
xCols = xRg.Columns.Count
Chun I = 1 Go xRows
Socraigh xCell = xRg(I, xCols)
Má tá xCell.Value = "Tá" Ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo é do chuid faisnéise:" & vbNewLine & xCell.Offset(0, -1).Text & vbNewLine & xCell.Offset(0, -2).Text
Le xOutMail
.Chun = xCell.Offset(0, -4).Text
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Deireadh Má
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Criostail,

Tagann sé seo in ionad an chóid seo a leanas:

Fo-ríomhphost()

Dim xRg Mar Raon

Dim xRgEach Mar Raon

Dim xEmail_Subject, xEmail_Send_Form,; srl.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cá háit go díreach a gcuirfimid an cód seo isteach?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Ní mór duit an cód a chur isteach i bhfuinneog cód na bileoige oibre.
Oscail an fhuinneog Microsoft Visual Basic for Applications, cliceáil faoi dhó ar an ainm bileog sa phána ar chlé chun an eagarthóir cód a oscailt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,


Tá beagán trioblóide agam faoi láthair leis an gcódú seo (nua do seo - b'fhéidir go bhfuil níos mó biotáilte agam ná mar is féidir liom a chew)


Tá scarbhileog agam faoi láthair ar a bhfuil na nithe seo a leanas a dteastaíonn cabhair uaim chun uathoibriú agus ríomhphost a sheoladh mar gheall ar locht atá ar ár gcuid maoine dár ngnó


Tá cód ag teastáil uaim faoi láthair a úsáidfidh na sonraí seo a leanas:


1) Seoladh agus an tsaincheist ( 2 chill "ghinearálta" atá cumasctha trí ((I gcill D1)) " = = CONCAT(B1," "C1,) "
Beidh an seoladh i B1 mar an gcéanna i gcónaí (níos mó nó níos lú)
Cé go mbeidh C1 ag athrú i gcónaí ag brath ar an locht ar an réadmhaoin.


2) R-phost a sheoladh tríd an seoladh ríomhphoist céanna, ( an féidir liom $E$1 a úsáid nó E1 - E1 . mar shampla) a úsáid nó an féidir liom "TheEmailAdress@.co.uk" a ionchur sa líne chóid


3) An comhlacht ríomhphoist le bheith daonra ar an mbealach cosúil le pointe 1) ...... ((I gcill F1)) " = CONCAT(G1," ",H1)
Beidh siad seo ag athrú de shíor agus iad ag léiriú na cuideachta (G1) agus a bhfuil ar siúl acu , ag socrú, ag lua ect (H1)

4) An truicear chun an ríomhphost a sheoladh amach, is mise an uimhir 7 , nuashonraítear an leathán go laethúil (7 lá sa tseachtain)
mar sin teastaíonn uaim an truicear chun an ríomhphost a sheoladh ar an lá 7, ach ní cosúil go seasta ar an lá 8, 9 , 10+ ect. agus ní roimh leithéid 1-6, bheadh ​​sé seo in A4 : A 100+ (mar táimid ag leathnú i gcónaí


4) Bhain mé úsáid as giotaí beaga ó úsáideoirí eile a luaigh faoi liosta a úsáid don truicear chun an ríomhphost a sheoladh, ach ní raibh mé cinnte an raibh sé ceart 100% go raibh sé ceart, ach bheadh ​​​​sé ag teastáil uaim chun scanadh a dhéanamh cé go raibh Collum A... .A4: A100
agus má tá 47 cill nach bhfuil iontu ach " 7 " ansin seolfar 47 ríomhphost


Go raibh míle maith agat as léamh agus tá súil agam gur féidir leat cabhrú :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Mháirtín a chara,
Ní féidir leis an leithscéal cabhrú leis seo.
Is féidir leat do cheist a phostáil inár bhfóram: https://www.extendoffice.com/forum.html chun tuilleadh tacaíochtaí Excel a fháil ónár bhfoireann theicniúil.
Go raibh maith agat as do thuairim.

Fearr-mhéin,
Crystal
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,


Cad a tharlóidh dá mbeinn ag iarraidh an ríomhphost a sheoladh bunaithe ar an bhfocal "críochnaithe" a bhí á chur le colún L?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Jesse a chara,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Go raibh maith agat as do thuairim.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Más rud é (Gan Trasnaíonn(Sprioc, Raon ("L:L")) Nach bhfuil Rud ar bith) Agus (Target.Value = "críochnaithe") Ansin
Cuir glaoch ar Mail_small_Text_Outlook
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 = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Seoladh ríomhphoist d'fhaighteoir"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Ba mhaith liom Outlook pop amach ach amháin nuair a bhíonn na sonraí a ghreamú mé isteach sa Raon ("D7:F7") ar a laghad 1 náid nó bán.
Bhain mé an líne 'If Target.Cells.Count> 1 Ansin Scoir Fo' agus anois seolann Outlook i gcónaí nuair a ghreamóidh mé aon ghrúpa luachanna i gcealla D7:F7.

Cabhrú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
a chara Jan,
Is féidir leis an script seo a leanas cabhrú leat an fhadhb a réiteach. Go raibh maith agat as do thuairim.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Ar Lean Earráid Aghaidh
Má tá Target.Address = Raon ("D7:F7").Seoladh Ansin
Le Feidhmchlár.Bileog Oibre
Más rud é .CountIf(Sprioc, "") > 0 Nó .CountIf(Sprioc, 0) > 0 Ansin
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
Le xOutMail
.To = "Seoladh Ríomhphoist"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Body = "Dia duit ansin"
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Deireadh Má
Deireadh Le
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar sin d'úsáid mé do eagarthóireacht chun raonta cille a chur san áireamh ach (má táimid ag baint úsáide as an sampla bileog oibre) bhí mé ag smaoineamh conas an cineál torthaí, an Dáta, agus an chainníocht a chur isteach sa ríomhphost HTML ón mbileog oibre má oireann siad na critéir chun ríomhphost a bheith ginte. Mar sin déarfadh sé

"Dia Duit,"

Ainm torthaí ó chill "Ní mór é a chur ar chúl-ordú mar gheall ar dháta an ordaithe:" dáta ordaithe ón gcill "tá an méid seo againn:" cainníocht ón gcill.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Noemi,
Bain triail as an script VBA seo le do thoil.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Dim xRg Mar Raon
Dim I, J, K Chomh fada
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Ar Lean Earráid Aghaidh
Má tá Target.Address = Raon ("D7").Seoladh Ansin
Le Feidhmchlár.Bileog Oibre
Más Uimhriúil (Sprioc.Luach) Agus Sprioc.Luach > 200 Ansin
Socraigh xRg = Application.InputBox("Roghnaigh an raon cille a thaispeánfaidh tú sa chorp ríomhphoist:"", "KuTools for Excel", Selection.Address, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Do I = 1 Go xRg.Rows.Count
Do J = 1 Go xRg.Rows(I).Columns.Count
Le haghaidh K = 1 Go xRg.Rows(I).Colúin(J).Count
xMailBody = xMailBody & " " & xRg.Rows(I).Columns(J).Cealla(K).Text
Ar Aghaidh
Ar Aghaidh
xMailBody = xMailBody & vbNewLine
Ar Aghaidh
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
Le xOutMail
.To = "Seoladh Ríomhphoist"
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Body = "Dia duit ansin" & vbNewLine & xMailBody
.Display’ nó úsáid .Send
Deireadh Le
Ar Earráid TéighTo 0
Socraigh xOutMail = faic
Socraigh xOutApp = faic
Deireadh Má
Deireadh Le
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit criostail
Go raibh maith agat as do chóid, más féidir, seol na cóid le haghaidh sonraí tugtha thíos

má tá idir 8 agus 9 gcolóim againn ag baint úsáide as cineálacha éagsúla éaga cosúil le dáta éaga an phas, dáta éaga an cheadúnais tiomána, dáta éaga chláraithe feithicle, dáta éaga an phas geata agus níos mó etc., agus ní mór foláireamh poist a sheoladh chuig 5 dhuine tugtha amháin.

mar go bhfuil ár mbileog dáta le níos mó ná 300 fostaí, dáta éaga agus éaga le laistigh de 15 lá i ndath dearg agus ba chóir foláireamh ríomhphoist a sheoladh.

go cineálta a dhéanamh ar an ngá

go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Táimid tar éis alt a phostáil "Conas ríomhphost a sheoladh má chomhlíontar an dáta dlite in Excel?"
Is féidir leat a fheiceáil má tá freagraí san Airteagal seo. Lean an nasc seo le do thoil chun an t-alt a oscailt: https://www.extendoffice.com/documents/excel/4664-excel-send-email-if-due-date-has-been-met.html
Go raibh maith agat.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit- Dá mbeinn ag iarraidh ríomhphost a sheoladh chuig liosta ó liosta in ionad addy ríomhphoist iarbhír a chur sa chód, an bhfuil sé sin indéanta? go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Bain triail as thíos cód VBA, le do thoil, nuair a chomhlíonann an chill sonraithe an coinníoll, beidh dialóg pop suas, le do thoil roghnaigh an cille ina bhfuil an seoladh ríomhphoist a sheolann tú ríomhphost chuig. Tá súil gur féidir leis cabhrú. Go raibh maith agat.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá Target.Cells.Count > 1 Ansin Scoir Fo
Socraigh xRg = Raon ("D7")
Má tá xRg = Sprioc agus Sprioc.Luach > 200 Ansin
Cuir glaoch ar Mail_small_Text_Outlook
Deireadh Má
Fo Deireadh
Fo-phost_small_Text_Outlook()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xRgMsg Mar Raon
Dim xCell Mar Raon
Socraigh xRgMsg = Application.InputBox("Roghnaigh na cealla seoltaí:"", "Kutools for Excel", , , , , , 8)
xMailBody = "Dia duit ansin" & vbNewLine & vbNewLine &_
"Seo líne 1" & vbNewLine&_
"Seo líne 2"
Ar Lean Earráid Aghaidh
Do Gach xCell In xRgMsg
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
Le xOutMail
.Chun = xCell.Value
.CC = ""
.BCC = ""
.Subject = "seol trí thástáil luach cille"
.Comhlacht = xMailBody
.Display’ nó úsáid .Send
Deireadh Le
xOutApp = Ní dhéanfaidh aon ní
xOutMail = Ní dhéanfaidh aon ní
Ar Aghaidh
Ar Earráid TéighTo 0
Fo Deireadh
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta