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

Conas síniú Outlook a chur isteach agus ríomhphost á sheoladh in Excel?

Ag glacadh leis gur mhaith leat ríomhphost a sheoladh go díreach in Excel, conas is féidir leat síniú réamhshocraithe Outlook a chur leis an ríomhphost? Soláthraíonn an t-alt seo dhá mhodh chun cabhrú leat síniú Outlook a chur leis agus tú ag seoladh ríomhphoist in Excel.

Cuir an síniú isteach i ríomhphost Outlook agus é á sheoladh ag Excel VBA
Cuir isteach síniú Outlook go héasca agus ríomhphost á sheoladh in Excel le huirlis iontach

Tuilleadh ranganna teagaisc le haghaidh postála in Excel ...


Cuir an síniú isteach i ríomhphost Outlook agus é á sheoladh ag Excel VBA

Mar shampla, tá liosta seoltaí ríomhphoist i mbileog oibre, chun ríomhphoist a sheoladh chuig na seoltaí seo go léir in Excel agus cuir an síniú réamhshocraithe Outlook sna ríomhphoist. Cuir an cód VBA thíos i bhfeidhm le do thoil chun é a bhaint amach.

1. Oscail an bhileog oibre tá an liosta seoltaí ríomhphoist ar mhaith leat ríomhphost a sheoladh chuici, agus ansin brúigh an Eile + F11 eochracha.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúl, agus ansin cóipeáil an méid thíos VBA 2 isteach i bhfuinneog chód an Mhodúil.

3. Anois ní mór duit an .Comhlacht líne i VBA 2 leis an gcód i VBA 1. Tar éis sin, bog an líne .Dráma faoin líne Le xMailOut.

VBA 1: Teimpléad chun ríomhphoist a sheoladh le síniú réamhshocraithe Outlook in Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Seol r-phost chuig seoltaí ríomhphoist atá sonraithe i gcealla in Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Is féidir leis an bpictiúr seo a leanas cabhrú leat na difríochtaí a aimsiú go héasca tar éis duit an cód VBA a athrú.

4. Brúigh an F5 eochair chun an cód a rith. Ansin a Kutools le haghaidh Excel roghnaigh bosca aníos, roghnaigh na seoltaí ríomhphoist a sheolfaidh tú ríomhphoist chucu, agus ansin cliceáil OK.

Ansin cruthaítear ríomhphoist. Is féidir leat a fheiceáil go gcuirtear síniú réamhshocraithe Outlook leis ag deireadh an chomhlachta ríomhphoist.

Leid:

  • 1. Féadfaidh tú an comhlacht ríomhphoist a athrú i gcód 1 VBA bunaithe ar do chuid riachtanas.
  • 2. Tar éis duit an cód a rith, má thagann bosca dialóige earráide suas le rabhadh nach bhfuil an cineál Sainmhínithe ag an Úsáideoir sainithe, dún an dialóg seo le do thoil, agus ansin téigh chun cliceáil uirlisí > tagairtí sa Microsoft Visual Basic d’Fheidhmchláir fuinneog. San oscailt Tagairtí - VBAProject fuinneog, seiceáil an Leabharlann Réada Microsoft Outlook bosca agus cliceáil OK. Agus ansin rith an cód arís.

Cuir isteach síniú Outlook go héasca agus ríomhphost á sheoladh in Excel le huirlis iontach

Más newbie tú i VBA, mol go mór anseo an Seol Ríomhphost fóntais de Kutools le haghaidh Excel duitse. Leis an ngné seo, is féidir leat ríomhphoist a sheoladh go héasca bunaithe ar réimsí áirithe in Excel agus síniú Outlook a chur leo. Déan mar a leanas le do thoil.

Roimh iarratas a dhéanamh Kutools le haghaidh Excel, Le do thoil é a íoslódáil agus a shuiteáil ar dtús.

Ar dtús, ní mór duit liosta seoltaí a chruthú le réimsí éagsúla a sheolfaidh tú ríomhphoist bunaithe orthu.

Is féidir leat liosta seoltaí a chruthú de láimh de réir mar a theastaíonn uait nó an ghné Cruthaigh Liosta Ríomhphoist a chur i bhfeidhm chun é a chur i gcrích go tapa.

1. cliceáil Kutools Plus > Cruthaigh Liosta Ríomhphoist.

2. Sa Cruthaigh Liosta Ríomhphoist bosca dialóige, sonraigh na réimsí a theastaíonn uait, roghnaigh cá háit ar féidir an liosta a aschur, agus ansin cliceáil ar an OK cnaipe.

3. Anois cruthaítear sampla liosta seoltaí. Toisc gur liosta samplach é, ní mór duit na réimsí a athrú go hábhar áirithe a theastaíonn. (ceadaítear sraitheanna iolracha)

4. Ina dhiaidh sin, roghnaigh an liosta iomlán (cuir ceanntásca san áireamh), cliceáil Kutools Plus > Seol Ríomhphoist.

5. Sa Seol Ríomhphost bosca dialóige:

  • 5.1) Cuirtear earraí ar an liosta seoltaí roghnaithe i réimsí comhfhreagracha go huathoibríoch;
  • 5.2) Críochnaigh an comhlacht ríomhphoist;
  • 5.3) Seiceáil an dá Seol r-phost trí Outlook agus Úsáid socruithe sínithe Outlook boscaí;
  • 5.4) Cliceáil ar an Seol cnaipe. Féach an pictiúr:

Anois seoltar ríomhphoist. Agus cuirtear an síniú réamhshocraithe Outlook leis ag deireadh an chomhlachta ríomhphoist.

  Más mian leat triail saor in aisce a bheith agat (30-lá) den áirgiúlacht seo, cliceáil le do thoil chun é a íoslódáil, agus ansin téigh chun an oibríocht a chur i bhfeidhm de réir na gcéimeanna thuas.


Earraí gaolmhara:

Seol r-phost chuig seoltaí ríomhphoist atá sonraithe i gcealla in Excel
Má cheaptar go bhfuil liosta seoltaí ríomhphoist agat, agus gur mhaith leat teachtaireacht ríomhphoist a sheoladh chuig na seoltaí ríomhphoist seo ar an mórchóir go díreach in Excel. Conas é a bhaint amach? Taispeánfaidh an t-alt seo modhanna duit chun ríomhphost a sheoladh chuig seoltaí ríomhphoist iomadúla a shonraítear i gcealla in Excel.

Seol r-phost le raon sonraithe a chóipeáil agus a ghreamú isteach sa chomhlacht ríomhphoist in Excel
In a lán cásanna, d’fhéadfadh go mbeadh réimse sonraithe ábhar i mbileog oibre Excel úsáideach i do chumarsáid ríomhphoist. San Airteagal seo, tabharfaimid isteach modh chun r-phost a sheoladh le pasting raon sonraithe isteach sa chomhlacht ríomhphoist go díreach in Excel.

Seol r-phost le ceangaltáin iolracha ceangailte in Excel
Tá an t-alt seo ag caint ar r-phost a sheoladh trí Outlook le ceangaltáin iolracha ceangailte in Excel.

Seol r-phost má tá an dáta dlite comhlíonta in Excel
Mar shampla, má tá an dáta dlite i gcolún C níos lú ná nó cothrom le 7 lá (is é an dáta reatha 2017/9/13), ansin meabhrúchán ríomhphoist a sheoladh chuig an bhfaighteoir sonraithe i gcolún A le hábhar sonraithe i gcolún B. Conas é a bhaint amach? Cuirfidh an t-alt seo modh VBA ar fáil chun déileáil leis go mion.

Seol r-phost 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.

Tuilleadh ranganna teagaisc le haghaidh postála in Excel ...


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íonn Office / Excel 2007-2021 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 airgid ar ais 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 (29)
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ú
go raibh maith agat go mór, sábháil tú mo shaol leis an teimpléad seo :D
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A Favio a chara,
Sásta cuidiú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní oibríonn sé le ceangaltáin in Office 2016
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Chris a chara, a chara
Is féidir leis an gcód VBA thíos cabhrú leat. Tar éis duit an cód a rith, roghnaigh le do thoil cealla ina bhfuil seoltaí ríomhphoist a sheolfaidh tú ríomhphoist chucu, agus ansin roghnaigh na comhaid a chaithfidh tú a cheangal sa ríomhphost mar cheangaltáin nuair a thagann an dara bosca dialóige suas. Agus taispeánfar an síniú réamhshocraithe Outlook sa chomhlacht ríomhphoist freisin. Go raibh maith agat as do thuairim.

Fo-SeoladhRíomhphostChunSeoladhInCells()
Dim xRg Mar Raon
Dim xRgEach Mar Raon
Dim xRgVal Mar Teaghrán
Dim xSeoladh Mar Teaghrán
Dim xOutApp Mar Outlook.Application
Dim xMailOut Mar Outlook.MailItem
Ar Lean Earráid Aghaidh
xAddress = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox ("Roghnaigh raon seoltaí ríomhphoist", "KuTools For Excel", xAddress, , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Application.ScreenUpdating = Bréagach
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
Socraigh xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Má tá xFileDlg.Show = -1 Ansin
Do Gach xRgEach In xRg
xRgVal = xRgEach.Value
Más maith le xRgVal "?*@?*.?*" Ansin
Socraigh xMailOut = xOutApp.CreateItem(olMailItem)
Le xMailOut
.Dráma
.Chun = xRgVal
.Subject = "Tástáil"
.HTMLBody = "Seo ríomhphost tástála á sheoladh i Excel" &"
" & .HTMLBody
Do Gach xFileDlgItem In xFileDlg.SelectedItems
.Ceangail.Cuir xFileDlgItem leis
Ar Aghaidh xFileDlgItem
'.Seol
Deireadh Le
Deireadh Má
Ar Aghaidh
Socraigh xMailOut = Ní dhéanfaidh aon ní
Socraigh xOutApp = faic
Feidhmchlár.ScreenUpdating = Fíor
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh an síniú outlook dar teideal "réamhshocraithe" a chur leis ach ní cosúil go n-oibríonn sé.
an féidir leat cabhrú le do thoil? Creidim go bhfuil mo loighic "xMailout" mícheart. is é seo mo réimse lochtach amhrasta.

Fo-ordú PríobháideachButton1_Cliceáil()

Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xMailOut Mar Outlook.MailItem
Ar Lean Earráid Aghaidh
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Beannachtaí:" &vbNewLine & vbNewLine&_
"Seo líne 1" & vbNewLine&_
"Seo líne 2" & vbNewLine&_
"Seo líne 3" & vbNewLine&_
"Seo líne 4"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Ríomhphost.here.com"
.CC = "Ríomhphost.here.com"
.Subject = "Teideal Ríomhphoist Anseo - " & Raon ("Cill#") .value
.Comhlacht = xMailBody
. Ceangaltáin.Cuir ActiveWorkbook.FullName leis
Socraigh xMailOut = xOutApp.CreateItem(olMailItem)
Le xMailOut
.Dráma
Deireadh Le
Leabhar Oibre Gníomhach.Sábháil
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ú
Dea-lá,
Athraíodh do script, bain triail as. Go raibh maith agat.

Fo-ordú PríobháideachButton1_Cliceáil()
Dim xOutApp Mar Réad
Dim xOutMail Mar Réad
Dim xMailBody Mar Teaghrán
Dim xMailOut Mar Outlook.MailItem
Ar Lean Earráid Aghaidh
Socraigh xOutApp = CreateObject ("Outlook.Application")
Socraigh xOutMail = xOutApp.CreateItem(0)
xMailBody = "Beannachtaí:" &vbNewLine & vbNewLine&_
"Seo líne 1" & vbNewLine&_
"Seo líne 2" & vbNewLine&_
"Seo líne 3" & vbNewLine&_
"Seo líne 4"
Ar Lean Earráid Aghaidh
Le xOutMail
.To = "Ríomhphost.here.com"
.CC = "Ríomhphost.here.com"
.Subject = "Teideal Ríomhphoist Anseo - " & Raon ("Cill#").Luach
.Comhlacht = xMailBody
.Attachments.Add ActiveWorkbook.FullName
Socraigh xMailOut = xOutApp.CreateItem(olMailItem)
Le xMailOut
.Dráma
Deireadh Le
Deireadh Le
Leabhar Oibre Gníomhach.Sábháil
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ú
conas síniú a chur leis má úsáideann ilúsáideoirí an macra.
mar shampla beidh mo mhacra á rith ag 3 daoine eile chomh maith. Mar sin conas is féidir leis an macra síniú an úsáideora atá ag rith an macra a úsáid.
go raibh maith agat roimh ré
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 an síniú réamhshocraithe a aithint go huathoibríoch i Outlook an tseoltóra, agus ríomhphost a sheoladh lena shíniú féin trí Outlook.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Má tá mo chorp-téacs nasctha le tarraingt ó réimsí excel, scriosann úsáid & .HTMLBody ag deireadh na teaghrán an téacs coirp ar fad agus fágann sé an síniú.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá deacracht agam é seo a rith ar excel 2016. Faighim teachtaireacht "Earráid a Thiomsú: Cineál Sainithe Úsáideora Gan Sainmhíniú". Cabhrú le do thoil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ar fheabhas!!!!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh míle maith agat...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, bheadh ​​cabhair ag teastáil uaim le mo mhacra, caithfidh mé síniú Outlook a chur isteach faoin tábla, an bhféadfá cabhrú liom le sin?

Fo-ordú PríobháideachButton1_Cliceáil()


Dearcadh caol Mar Réad
Dim newEmail As Object
Dim xInspect As Object
Dim pageEditor As Object

Set outlook = CreateObject("Outlook.Application")
Socraigh newEmail = outlook.CreateItem(0)

Le Ríomhphost nua
.Chun = Bileog 5.Raon("F1")
.CC = ""
.BCC = ""
.Subject = Bileog 5.Raon("B5")
.Corp = Bileog 5.Raon("B41")
.taispeáint

Socraigh xInspect = newEmail.GetInspector
Socraigh pageEditor = xInspect.WordEditor

Bileog 5.Raon("B6:I7").Cóip

pageEditor.Application.Selection.Start = Len(.Comhlacht)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

.taispeáint
Socraigh pageEditor = Ní dhéanfaidh aon ní
Socraigh xInspect = Ní dhéanfaidh aon ní
Deireadh Le

Socraigh newEmail = Ní dhéanfaidh aon ní
Set outlook = Ní dhéanfaidh aon ní

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Bara,
Ár leithscéal ní féidir leat cabhrú leis sin. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
A chara,
An féidir le duine éigin cabhrú liom le mo VBA,
Teastaíonn síniú uaim sa ríomhphost cruthaithe:
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat, is féidir liom síniú a chur leis anois ach ansin baintear na spásanna idir alt den téacs. Le do thoil An féidir leat Cabhrú liom?


Dia duit domhan()
Dim OutApp Mar Cuspóir
Dim OutMail Mar Réad
Dim cill Mar Raon
Dim Conair Mar Teaghrán
Conair = Application.ActiveWorkbook.Path
Set OutApp = CreateObject("Outlook.Application")

Do Gach cill i Raon ("C4:C6")
Socraigh OutMail = OutApp.CreateItem(0)
Le OutMail
.Dráma
.Chun = cill.Value
.Subject = Cealla(cill.Row, "D").Luach
.HTMLBody = "A chara" & Cealla(cill.Row, "B").Luach & "," _
& vbNewLine & vbNewLine&_
"Beannachtaí Te" _
& vbNewLine & vbNewLine&_
"Ba mhaith linn, JK Thar Lear, an deis a thapú agus ár gcuideachta JK Overseas a thabhairt isteach, atá páirteach sa ghnó salainn le 3 bliana anuas. Tá muid láidir faoi láthair sa bhaile agus ag leathnú thar lear. Is soláthraí muid Inite Salt, Salann a laghdaíonn Uisce, Salann Dí-oighrithe, Salann Tionsclaíoch" & "." _
& vbNewLine & vbNewLine&_
"Tá comhionannas vótaí-suas le monaróirí ar scála mór san India agus a fháil uathu Salann cáilíochta agus onnmhairí. Mar sin, táimid ag lorg allmhaireoir saineolaí iontaofa chomh maith le gníomhaire dáileoir a dhéanamh Gnó fadtéarmach le sochar frithpháirteach" & " ." _
& vbNewLine & vbNewLine&_
"Déan teagmháil linn le do thoil le do chuid riachtanas nó le haghaidh aon fhiosrúcháin eile a d'fhéadfadh a bheith agat. Soláthraímid loighistic iontaofa agus seachadadh ar-am. Táimid muiníneach go mbeidh ár bpraghsanna is iomaíche ag teacht leis na hionchais atá agat" & "." _
& vbNewLine & vbNewLine&_
.HTMLBody

'.Seol
Deireadh Le
An chéad chill eile
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh an cód seo a chomhtháthú leis an bhformáid atá agam faoi láthair trínar féidir liom ríomhphoist a uathoibriú laistigh de Excel bunaithe ar raon luachanna socraithe. Bheifí an-bhuíoch as aon chabhair maidir le cén áit ar cheart an cód 'sínithe' a chur leis an méid atá agam faoi láthair.

Fosheic PhoiblíAndSendMail()

' arna nuashonrú ag Extendoffice 2018 / 11 / 22

Dim xRgDate Mar Raon

Dim xRgSend Mar Raon

Dim xRgText Mar Raon

Dim xRgDone Mar Raon

Dim xOutApp Mar Réad

Dim xMailItem As Object

Dim xLastRow Chomh fada

Dim vbCrLf Mar Teaghrán

Dim xMailBody Mar Teaghrán

Dim xRgDateVal Mar Teaghrán

Dim xRgSendVal Mar Teaghrán

Dim xMailSubject As Teaghrán

Dim I Chomh Fada

Ar Lean Earráid Aghaidh

'Sonraigh an raon dáta dlite, le do thoil

xStrRang = "D2:D110"

Socraigh xRgDate = Raon(xStrRang)

'Sonraigh le do thoil raon seoltaí ríomhphoist an fhaighteora

xStrRang = "C2:C110"

Socraigh xRgSend = Raon(xStrRang)

xStrRang = "A2:A110"

Socraigh xRgName = Raon(xStrRang)

'Sonraigh an raon le hábhar meabhrúcháin i do ríomhphost

xStrRang = "Z2:Z110"

Socraigh xRgText = Raon(xStrRang)

xLastRow = xRgDate.Rows.Count

Socraigh xRgDate = xRgDate(1)

Socraigh xRgSend = xRgSend(1)

Socraigh xRgName = xRgName(1)

Socraigh xRgText = xRgText(1)

Socraigh xOutApp = CreateObject ("Outlook.Application")

Do I = 1 Go xLastRow

xRgDateVal=""

xRgDateVal = xRgDate.Offset(I - 1).Luach

If xRgDateVal <> "" Ansin

Má tá CDate(xRgDateVal) - Dáta <= 30 Agus CDate(xRgDateVal) - Dáta > 0 Ansin

xRgSendVal = xRgSend.Offset(I - 1).Luach

xMailSubject = " Comhaontú Seirbhíse JBC ag dul in éag Ar an " & xRgDateVal

vbCrLf = "

"

xMailBody=""

xMailBody = xMailBody & "A chara" & xRgName.Offset(I - 1).Luach & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Luach & vbCrLf

xMailBody = xMailBody &""

Socraigh xMailItem = xOutApp.CreateItem(0)

Le xMailItem

.Subject = xMailSubject

.Chun = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Dráma

'.Seol

Deireadh Le

Socraigh xMailItem = Ní dhéanfaidh aon ní

Deireadh Má

Deireadh Má

Ar Aghaidh

Socraigh xOutApp = faic

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé i ndáiríre cabhrach cód
Ní mór dom formáid an téacs a athrú ó dheis go clé Sa líne xOutMsg
cabhrú le do thoil.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh bileoga aonair ó excel a sheoladh chuig ríomhphoist éagsúla, ach ní dhéanfaidh sé ach an leabhar oibre féin a cheangal. Chomh maith leis sin, an gá dom a bheith in ann mo líne sínithe a chur leis. Aon chabhair? Fo AST_Email_From_Excel()

Dim ríomhphost Iarratas Mar Réad
Dim emailItem As Object

Socraigh emailApplication = CreateObject ("Outlook.Application")
Socraigh emailItem = emailApplication.CreateItem(0)

' Anois tógaimid an ríomhphost.

emailItem.to = Raon ("e2").Luach

emailItem.CC = Raon ("g2").Luach

emailItem.Subject = "Trealamh Techquidation Neamh-aischurtha"

emailItem.Body = "Féach ar an scarbhileog faoi iamh le haghaidh míreanna nach bhfuil curtha ar ais i do cheantar"

‘Ceangail Leabhar Oibre reatha
emailItem.Attachments.Add ActiveWorkbook.FullName

'Ceangail aon chomhad ó do ríomhaire.
'emailItem.Attachments.Add ("C:\...)"

'Seol an ríomhphost
'ríomhphostItem.seol

'Taispeáin an ríomhphost ionas gur féidir leis an úsáideoir é a athrú mar is mian leis sula seolfar é
ríomhphostItem.Display

Socraigh emailItem = Ní dhéanfaidh aon ní
Socraigh emailApplication = Ní dhéanfaidh aon ní

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Chris, Athraíodh an cód a sholáthair tú. Is féidir síniú Outlook a chur isteach sa chomhlacht teachtaireachta anois. Bain triail as le do thoil. Go raibh maith agat. Fo AST_Ríomhphost_From_Excel()
' arna nuashonrú ag Extendoffice 20220211
Dim ríomhphost Iarratas Mar Réad
Dim emailItem As Object
Socraigh emailApplication = CreateObject ("Outlook.Application")
Socraigh emailItem = emailApplication.CreateItem(0)

' Anois tógaimid an ríomhphost.
emailItem.Display 'Taispeáin an ríomhphost ionas gur féidir leis an úsáideoir é a athrú mar is mian leis roimh é a sheoladh
emailItem.to = Raon ("e2").Luach
emailItem.CC = Raon ("g2").Luach
emailItem.Subject = "Trealamh Techquidation Neamh-aischurtha"
emailItem.HTMLBody = "Féach ar an scarbhileog ceangailte le haghaidh míreanna nach bhfuil curtha ar ais i do cheantar" &" " & seol ríomhphost chuigItem.HTMLBody

‘Ceangail Leabhar Oibre reatha
emailItem.Attachments.Add ActiveWorkbook.FullName

Socraigh emailItem = Ní dhéanfaidh aon ní
Socraigh emailApplication = Ní dhéanfaidh aon ní

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Crystal, Go raibh maith agat as é a fháil chun an síniú a chur leis, is cosúil nach dtaitníonn an rannóg HTMLBody leis ach. Nuair a ritheann mé an macra, dífhabhtóidh sé ar emailItem.HTMLBody = "Féach ar an scarbhileog faoi iamh le haghaidh míreanna neamh-aischurtha i do cheantar" & " " & emailItem.HTMLBodyagus ní chríochnaíonn sé an chuid eile.  
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Cén leagan Excel atá á úsáid agat? Is féidir leis an gcód VBA seo a leanas cabhrú freisin. Bain triail as le do thoil. Go raibh maith agat as do chuid aiseolais. Fo-Bhileog Oibre Seolta()
'Nuashonraigh le Extendoffice 20220218
Dim xFile Mar Teaghrán
Dim xFormat Chomh fada
Dim Wb Mar Leabhar Oibre
Dim WB2 Mar Leabhar Oibre
Dim FilePath As Teaghrán
Dim ComhadName Mar Teaghrán
Dim OutlookApp Mar Réad
Dim OutlookMail Mar Réad
Ar Lean Earráid Aghaidh
Application.ScreenUpdating = Bréagach
Socraigh Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Socraigh Wb2 = Application.ActiveWorkbook
Roghnaigh Cás Wb.FileFormat
Cás xlOpenXML Workbook:
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Cás xlOpenXMLLeabhar OibreMacro Cumasaithe:
Má Wb2.HasVBProject Ansin
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnable
Eile
xFile = ".xlsx"
xFormat = xlOpenXMLLeabhar Oibre
Deireadh Má
Cás Excel8:
xFile = ".xls"
xFormat = Excel8
Cás xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Roghnaigh Roghnaigh
FilePath = Timpeallacht$("temp") & "\"
FileName = Wb.Name & Formáid(Anois, "dd-mmm-yy h-mm-ss")
Socraigh OutlookApp = CreateObject ("Outlook.Application")
Socraigh OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Raon ("e2") & " ; " & Raon ("g2")
Le OutlookMail
.Dráma
.To = Raon ("e2")
.CC = Raon ("g2")
.BCC = ""
.Subject = "Trealamh Teic-quidiúcháin Neamhaischurtha"
.HTMLBody = "Féach ar an scarbhileog faoi iamh le haghaidh míreanna neamh-aischurtha i do cheantar" &" " & .HTMLBody
.Ceangail.Cuir Wb2.FullName leis
'.Seol
Deireadh Le
Wb2.Dún
Maraigh FilePath & FileName & xFile
Socraigh OutlookMail = Ní dhéanfaidh aon ní
Socraigh OutlookApp = Ní dhéanfaidh aon ní
Feidhmchlár.ScreenUpdating = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Is cosúil gurb é Excel 2016 agus VBA 7.1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oi Cristal, a bheag nó a mhór macra chun configuração da assinatura do r-phost, com imagens agus formáid bunaidh. Conas a réiteach?

Fo-Gheararmail()

Dim OLapp Mar Outlook.Application
Níl ort ach Mar Outlook.MailItem

Socraigh OLapp = Outlook.Application Nua
Socraigh janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Léarscáil AN"
Anexo01=ThisWorkbook.Path &"\" &Arquivo01 & ".xlsm"


Le janela
Leabhar Oibre Gníomhach.Sábháil
.Dráma
.Chun = Bileoga("Bun").Raon("A2").Luach
.CC = Bileoga("Bun").Raon("A5").Luach
.Subject = "Léarscáil - Acrilo" & Formáid(Dáta, "dd.mm.yy")
assinatura = .Comhlacht
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o léarscáil de Acrilonitrila a mheas mar dhíolacháin réamh-mheastacháin nó S&OP." & Chr(10) & Chr(10) & assinatura
.Ceangail.Cuir Anexo01 leis
Deireadh Le

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Com a mudança abaixo, consegui ajustar. Féach ar an scannán a scríobh an Times New Roman. Cad é an úsáid a bhaintear as Calibri, mar a athrú nó cód?

Fo-Gheararmail()

Dim OLapp Mar Outlook.Application
Níl ort ach Mar Outlook.MailItem

Socraigh OLapp = Outlook.Application Nua
Socraigh janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Léarscáil AN"
Anexo01=ThisWorkbook.Path &"\" &Arquivo01 & ".xlsm"


Le janela
Leabhar Oibre Gníomhach.Sábháil
.Dráma
.Chun = Bileoga("Bun").Raon("A2").Luach
.CC = Bileoga("Bun").Raon("A5").Luach
.Subject = "Léarscáil - Acrilo" & Formáid(Dáta, "dd.mm.yy")
assinatura = .Comhlacht
.HTMLBody = "Réamhlathas/mar," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila a mheas mar dhíolacháin réamh-mheastacháin nó S&OP." &" " & .HTMLBody
.Ceangail.Cuir Anexo01 leis
Deireadh Le

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Milla,
Is féidir leis an gcód VBA seo a leanas cabhrú leat cló an chomhlachta ríomhphoist a athrú go Calibri, bain triail as. Go raibh maith agat.
Sula ritheann tú an cód, ní mór duit cliceáil uirlisí > Tagairt sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, agus ansin seiceáil an Leabharlann Réada Microsoft Word ticbhosca sa Tagairtí - VBAProject bosca dialóige mar an screenshot a thaispeántar thíos.
[img]I:\工作\周雪明\2022年工作\6月份\文章评论截图\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Milla,
Is féidir leis an gcód VBA seo a leanas cabhrú leat cló an chomhlachta ríomhphoist a athrú go Calibri, bain triail as. Go raibh maith agat.
Sula ritheann tú an cód, ní mór duit cliceáil uirlisí > Tagairt sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, agus ansin seiceáil an Leabharlann Réada Microsoft Word ticbhosca sa Tagairtí - VBAProject bosca dialóige mar an comhad ceangailte a thaispeántar thíos.
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, táim ag iarraidh mo Chód VBA a shocrú. Ba mhaith liom ceann de mo chuid sínithe dearcadh a chur san áireamh le lógó. An féidir é seo a dhéanamh, agus cá háit a gcuirim an cód atá in úsáid agam faoi láthair? Bheadh ​​aon chúnamh iontach.

Fo-RíomhphostAspdf()

Dim EApp As Object
Socraigh EApp = CreateObject ("Outlook.Application")

Dim EItem As Object
Socraigh EItem = EApp.CreateItem(0)

Níl invno Chomh fada
Dim saincheaptha Mar Teaghrán
Dim amt Mar Airgeadra
Dim dt_issue Mar Dáta
Téarma caol Mar Beart
Dim nextrec As Raon
cosán dim Mar Teaghrán
Dim fname As Teaghrán

invno = Raon ("I4")
custname = Raon ("A11")
amt = Raon ("I42")
dt_issue = Raon ("I6")
téarma = Raon ("I7")
cosán = "mypath"
fname = invno & " - " & custname

ActiveSheet.ExportAsFixedFormat Cineál:=xlTypePDF, IgnorePrintAreas:=Bréagach, Ainm comhaid:=conair & fainm

Socraigh nextrec = Sheet3.Range("A1048576").Deireadh(xlUp).Fritháireamh(1, 0)

nextrec = invno
nextrec.Offset(0, 1) = sainainm
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + téarma
nextrec.Offset(0, 8) = Anois

Sheet3.Hyperlinks.Add ancaire:=nextrec.Offset(0, 6), Seoladh:=conair & fname & ".pdf"

Le EItem

.To = Raon ("A17")

.Subject = Raon ("A11") & " " & " Uimhir Sonraisc: " & Raon ("I4") & " " & " le haghaidh Abhcóidí California"

.body = "Dia duit" & Raon ("A11") & "," & vbNewLine & vbNewLine _
& "Féach le do thoil an sonrasc ceangailte le haghaidh " &Raon ("A11") & "." & vbNewLine & vbNewLine _
& "Má tá aon cheist agat, ná bíodh leisce ort teagmháil a dhéanamh liom." & vbNewLine & vbNewLine _
& "Is Fearr," & vbNewLine _
& "M'ainm anseo" & vbNewLine

.Attachments.Add (conair & fname & ".pdf")

.Dráma

Deireadh Le
Fo-Scoir



Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi RoseAnn,

Is féidir leat an lógó a chur le do shíniú de láimh roimh ré sula gcuireann tú an cód VBA i bhfeidhm. Ní mór an cód a chur i bhfuinneog cód an Mhodúil (brúigh an Alt + F11 chun an Eagarthóir Bunúsach a oscailt, cliceáil Ionsáigh > Modúl)
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

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL