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

Conas meabhrúchán ríomhphoist nó fógra ríomhphoist a sheoladh má dhéantar an leabhar oibre a nuashonrú in Excel?

I roinnt cásanna, b’fhéidir go mbeidh ort fógra ríomhphoist a spreagadh chuig faighteoir sonraithe má dhéantar sonraí a nuashonrú sa leabhar oibre a sheol tú. Taispeánfaidh an t-alt seo modh duit chun é a bhaint amach.

Seol meabhrúchán ríomhphoist nó fógra má dhéantar leabhar oibre a nuashonrú le cód VBA


Seol meabhrúchán ríomhphoist nó fógra má dhéantar leabhar oibre a nuashonrú le cód VBA


Déan mar a leanas le do thoil chun meabhrúchán ríomhphoist nó fógra a sheoladh má dhéantar an leabhar oibre a nuashonrú.

1. Sa leabhar oibre, oscail bileog oibre shonraithe seolfaidh tú fógra ríomhphoist bunaithe ar na sonraí nuashonraithe taobh istigh.

2. Cliceáil ar dheis ar an táb bileog, agus roghnaigh Féach an cód ón roghchlár cliceáil ar dheis. Féach an pictiúr:

2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód seo a leanas a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an chóid. Féach an pictiúr:

Cód VBA: Seol meabhrúchán ríomhphoist nó fógra má dhéantar an leabhar oibre a nuashonrú

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    Dim xYesOrNo As Integer
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xYesOrNo = MsgBox("Want to attach updated workbook in email?", vbInformation + vbYesNo, "KuTools For Excel")
    If xYesOrNo = 6 Then ActiveWorkbook.Save
    If xYesOrNo = 6 Then xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .cc = ""
        .Subject = "email notification test"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        If xYesOrNo = 6 Then .Attachments.Add xName
        .Display
    End With
    xMailItem = Nothing
    xOutApp = Nothing
End Sub

nótaí: Cuir seoladh ríomhphoist an fhaighteora in áit an Seoladh Ríomhphoist .To = "Seoladh Ríomhphoist". Agus athraigh an Cc, Ábhar chomh maith le réimsí coirp sa chód VBA de réir mar a theastaíonn uait.

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

4. Tar éis cill a chur in eagar sa bhileog oibre, a Kutools le haghaidh Excel Beidh bosca dialóige aníos mar a thaispeántar thíos. Más mian leat an leabhar oibre nuashonraithe a cheangal leis an ríomhphost, cliceáil ar an Is ea cnaipe. Mura bhfuil, cliceáil ar an Uimh cnaipe.

5. Ansin cruthaítear r-phost go huathoibríoch leis an leabhar oibre nuashonraithe atá ceangailte leis nó gan é. Agus tá gach réimse sonraithe liostaithe sa ríomhphost freisin. Cliceáil le do thoil ar an Seol cnaipe chun é a sheoladh.

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


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 (12)
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ú
Má fuair aon duine an leathanach seo ag smaoineamh ar conas ríomhphost a sheoladh ó Excel ag baint úsáide as CDO, chaith mé Google Doc le chéile -- Conas Ríomhphost a Sheoladh ó Excel ag baint úsáide as Gmail (https://docs.google.com/document/d/1u5VLzCApU3k4-9Vp9LEfqyFZ6u9tAY0avNPYN_1FsN4/edit?usp=sharing) le cód ar GitHub gist (https://gist.github.com/bergerjac/7355d4e528fa6c64a02dc494f3d241a1)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir liom CC níos mó ná duine a dhéanamh leis seo? Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Leah,
Cuir isteach na seoltaí ríomhphoist go díreach sa líne .cc="" le do thoil agus scar leathstad leo, mar shampla .cc = "AAA@gmail.com; BBB@gmail.com"
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chóipeáil agus ghreamaigh mé an cód díreach mar atá ón leathanach seo, ach nuair a athraím mo dhoiciméad faighim an teachtaireacht "Earráid Chomhréire" agus leagann an líne seo béim ar: Dim xOutApp As Object. Bheifí buíoch as aon chabhair.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Judy,
An gcuirfeá an leagan Excel atá in úsáid agat ar fáil? Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann, Oibríonn an cód iontach. Mar sin féin, nuair a athraíonn cill go dtí faoi bhun an phointe tairsí trí oibríocht mhacra a dhéanann an luach níos ísle a chóipeáil agus a ghreamú isteach sa chill ainmnithe, ní cosúil go spreagfaidh an cód.

Chomh maith leis sin, ba mhaith liom an cód seo a chur i bhfeidhm ar roinnt cealla. An féidir liom an cód a chóipeáil agus a ghreamú arís agus arís eile agus gach leagan cóipeáilte a athrú chun freastal ar riachtanais gach cealla? An bhfuil bealach níos fearr chun é sin a. Ní féidir liom é sin a dhéanamh amach. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá brón orm, phostáil mé é seo san alt mícheart. Déanfaidh mé postáil san alt ceart
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Nuair a rinne mé iarracht rud éigin a athrú i gcill spreag teachtaireacht le haghaidh cumraíocht ríomhphoist Outlook agus coinníonn sé ag iarraidh mo phasfhocal.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit MJ,
Cén leagan Excel atá á úsáid agat? An féidir leat gabháil scáileáin den leid a sholáthar?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Maidir liom féin ritheann an cód arís agus arís, a leithéid de lúb gan deireadh. Dúnann mé ríomhphost agus iarrann sé arís é a sheoladh ...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
le do thoil tá mé beagán mearbhall ach cá háit sa chód a bhraitheann sé go bhfuil an leathán á mhodhnú / á nuashonrú?
Táim ag iarraidh cód a scríobh nuair a sheoltar an tábla ar bhileog ar leith nuair a athraítear an tábla (nó go sonrach nuair a chuirtear sraitheanna leis)
go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Aimsíonn an cód sa phost na cealla go léir sa bhileog oibre iomlán bunaithe ar an gcéad líne de "Private Sub Worksheet_Change(ByVal Target As Range)".
Más mian leat ríomhphost a sheoladh le tábla áirithe nuair a dhéantar é a mhodhnú, is féidir leat an VBA seo a leanas a thriail.
nótaí: le do thoil athraigh "Tábla1" chuig d'ainm tábla féin.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2022/5/27
    Dim xYesOrNo As Integer
    Dim xTableName As String
    Dim xTableRg As Range
    Dim I, J As Long
    Dim xEmailBody As String
    Dim xMailOut As Object
    Dim xOutApp As Object
    On Error Resume Next
    
    xTableName = "Table1" 'The name of the table you will send when it is modified
    Set xTableRg = ActiveSheet.ListObjects(xTableName).Range
    If Intersect(Target, xTableRg) Is Nothing Then Exit Sub

    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    For I = 1 To xTableRg.Rows.Count
        For J = 1 To xTableRg.Columns.Count
            xEmailBody = xEmailBody & "  " & xTableRg.Cells(I, J).Value
        Next
        xEmailBody = xEmailBody & vbNewLine
    Next
    xEmailBody = "Hi" & vbLf & vbLf & " body of message you want to add" & vbLf & vbLf & xEmailBody & vbNewLine
    With xMailOut
        .Subject = "Test"
        .To = "XXX@163.com"
        .Body = xEmailBody
        .Display
        '.Send
    End With
    Set xMailOut = Nothing
    Set xOutApp = Nothing
End Sub
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0  Carachtair
Suímh Molta