Skip to main content

Conas ríomhphost a sheoladh nuair a osclaíonn na faighteoirí an comhad ceangaltáin Excel?

Féadfaidh an chuid is mó dínn roinnt teachtaireachtaí tábhachtacha le ceangaltán comhad Excel a sheoladh chuig ár gcliaint, mar sin caithfimid a fháil amach an bhfuair an faighteoir an teachtaireacht agus gur oscail sé an ceangaltán comhaid. Sa chás seo, is féidir leat cód VBA a chruthú do do chomhad ceangaltáin Excel, nuair a osclaíonn an faighteoir an leabhar oibre agus an cód a ghníomhachtú, ansin seolfar r-phost pras chugat go huathoibríoch.

Seol r-phost nuair a osclaíonn na faighteoirí an comhad ceangaltáin Excel le cód VBA


mboilgeog cheart gorm saighead Seol r-phost nuair a osclaíonn na faighteoirí an comhad ceangaltáin Excel le cód VBA

Sula seolfaidh tú an comhad Excel seo, ba cheart duit cód a chruthú mar a leanas:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil faoi dhó An Leabhar Oibre seo faoi ​​na Tionscadal VBA roinn chun modúl bán a oscailt, agus ansin an cód seo a leanas a chóipeáil agus a ghreamú isteach sa mhodúl:

Cód VBA: Seol r-phost nuair a osclaítear an comhad Excel:

Private Sub Workbook_Open()
'Updateby Extendoffice
    Dim olkObj As Object
    Dim olkEm As Object
    Dim strbody As String
    Set olkObj = CreateObject("Outlook.Application")
    Set olkEm = olkObj.CreateItem(0)
    strbody = "Hi there" & vbNewLine & vbNewLine & _
              ThisWorkbook.Name & vbNewLine & _
              "was opened by" & vbNewLine & _
              Environ("username")
    On Error Resume Next
    With olkEm
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "File opened"
        .Body = strbody
        .Send
    End With
    On Error GoTo 0
    Set olkEm = Nothing
    Set olkObj = Nothing
End Sub

seol doc nuair a osclaítear comhad 1

nótaí: Sa chód thuas, ba cheart duit an seoladh ríomhphoist a athrú go do sheoladh féin ar mhaith leat an ríomhphost pras a fháil, agus an t-ábhar a athrú de réir do riachtanas.

3. Ansin sábháil an leabhar oibre seo mar Leabhar Oibre Macra-Chumasaithe Excel formáid comhaid, féach an scáileán:

seol doc nuair a osclaítear comhad 2

4. Agus ansin seol teachtaireacht leis an gceangal comhaid seo chuig na faighteoirí a theastaíonn uait, nuair a dhéanfaidh na faighteoirí an comhad Excel seo a íoslódáil agus a oscailt agus an cód a ghníomhachtú, seolfar r-phost pras chugat go huathoibríoch agus inseoidh sé duit cé a d’oscail an comhad mar a leanas taispeántar an scáileán:

seol doc nuair a osclaítear comhad 3

nótaí: Níl an modh seo ar fáil ach nuair a úsáideann tú Outlook mar do chlár ríomhphoist.

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


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á!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for the above code. I'm just curious. To add a selected range of a specific worksheet too in the body of the email. I have tried using sh.range select method in your code and the email goes out but without the range probably I'm doing something wrong here or missed to add some additional codes.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations