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

Sut i fewnosod llofnod Outlook wrth anfon e-bost yn Excel?

Gan dybio eich bod am anfon e-bost yn uniongyrchol yn Excel, sut allwch chi ychwanegu'r llofnod Outlook rhagosodedig yn yr e-bost? Mae'r erthygl hon yn darparu dau ddull i'ch helpu chi i ychwanegu llofnod Outlook wrth anfon e-bost yn Excel.

Mewnosodwch lofnod yn e-bost Outlook wrth ei anfon gan Excel VBA
Mewnosod llofnod Outlook yn hawdd wrth anfon e-bost yn Excel gydag offeryn anhygoel

Mwy o sesiynau tiwtorial ar gyfer postio yn Excel ...


Mewnosodwch lofnod yn e-bost Outlook wrth ei anfon gan Excel VBA

Er enghraifft, mae rhestr o gyfeiriadau e-bost mewn taflen waith, i anfon e-byst i'r holl gyfeiriadau hyn yn Excel ac ychwanegu'r llofnod Outlook rhagosodedig yn y negeseuon e-bost. Cymhwyswch y cod VBA isod i'w gyflawni.

1. Mae agor y daflen waith yn cynnwys y rhestr cyfeiriadau e-bost rydych chi am e-bostio ati, ac yna pwyswch y Alt + F11 allweddi.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl, ac yna copïwch yr isod VBA 2 i mewn i ffenestr cod y Modiwl.

3. Nawr mae angen i chi ddisodli'r .Corff llinell i mewn VBA 2 gyda'r cod i mewn VBA 1. Ar ôl hynny, symudwch y llinell .Arddangos dan y llinell Gyda xMailOut.

VBA 1: Templed o anfon e-byst gyda llofnod rhagosodedig Outlook yn Excel

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

VBA 2: Anfon e-bost i gyfeiriadau e-bost a bennir mewn celloedd yn 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

Gall y screenshot canlynol eich helpu i ddod o hyd i'r gwahaniaethau yn hawdd ar ôl newid y cod VBA.

4. Gwasgwch y F5 allwedd i redeg y cod. Yna a Kutools ar gyfer Excel dewiswch naidlenni, dewiswch y cyfeiriadau e-bost y byddwch yn anfon e-byst atynt, ac yna cliciwch OK.

Yna mae e-byst yn cael eu creu. Gallwch weld llofnod rhagosodedig Outlook yn cael ei ychwanegu ar ddiwedd y corff e-bost.

Awgrym:

  • 1. Gallwch newid y corff e-bost yng nghod 1 VBA yn seiliedig ar eich anghenion.
  • 2. Ar ôl rhedeg y cod, os bydd blwch deialog gwall yn ymddangos nad yw'r math a ddiffiniwyd gan y Defnyddiwr wedi'i ddiffinio, caewch y dialog hwn, ac yna ewch i glicio offer > cyfeiriadau yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Yn yr agoriad Cyfeiriadau - VBAProject ffenestr, gwiriwch y Llyfrgell Gwrthrychau Microsoft Outlook blwch a chlicio OK. Ac yna rhedeg y cod eto.

Mewnosod llofnod Outlook yn hawdd wrth anfon e-bost yn Excel gydag offeryn anhygoel

Os ydych chi'n newbie yn VBA, dyma argymell y Anfon E-byst cyfleustodau Kutools ar gyfer Excel i chi. Gyda'r nodwedd hon, gallwch chi anfon e-byst yn hawdd yn seiliedig ar rai meysydd yn Excel ac ychwanegu llofnod Outlook atynt. Gwnewch fel a ganlyn.

Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.

Yn gyntaf, mae angen i chi greu rhestr bostio gyda gwahanol feysydd y byddwch chi'n anfon e-byst yn seiliedig arnyn nhw.

Gallwch chi greu rhestr bostio â llaw yn ôl yr angen neu gymhwyso'r nodwedd Creu Rhestr Postio i'w chyflawni'n gyflym.

1. Cliciwch Kutools Byd Gwaith > Creu Rhestr Bostio.

2. Yn y Creu Rhestr Bostio blwch deialog, nodwch y meysydd sydd eu hangen arnoch chi, dewiswch ble i allbynnu'r rhestr, ac yna cliciwch ar y OK botwm.

3. Nawr mae sampl rhestr bostio yn cael ei chreu. Gan ei fod yn rhestr sampl, mae angen ichi newid y meysydd i gynnwys penodol sydd ei angen. (caniateir rhesi lluosog)

4. Ar ôl hynny, dewiswch y rhestr gyfan (cynnwys penawdau), cliciwch Kutools Byd Gwaith > Anfon E-byst.

5. Yn y Anfon E-byst blwch deialog:

  • 5.1) Rhoddir eitemau yn y rhestr bostio a ddewiswyd mewn meysydd cyfatebol yn awtomatig;
  • 5.2) Gorffennwch y corff e-bost;
  • 5.3) Gwiriwch y ddau Anfon e-bost trwy Outlook ac Defnyddiwch osodiadau llofnod Outlook blychau;
  • 5.4) Cliciwch y anfon botwm. Gweler y screenshot:

Nawr anfonir e-byst. Ac ychwanegir llofnod rhagosodedig Outlook ar ddiwedd y corff e-bost.

  Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Erthyglau cysylltiedig:

Anfon e-bost i gyfeiriadau e-bost a bennir mewn celloedd yn Excel
Gan dybio bod gennych chi restr o gyfeiriadau e-bost, a'ch bod chi am anfon neges e-bost i'r cyfeiriadau e-bost hyn mewn swmp yn uniongyrchol yn Excel. Sut i'w gyflawni? Bydd yr erthygl hon yn dangos dulliau i chi o anfon e-bost i gyfeiriadau e-bost lluosog a nodwyd mewn celloedd yn Excel.

Anfon e-bost gyda chopïo a gludo ystod benodol i'r corff e-bost yn Excel
Mewn llawer o achosion, gallai ystod benodol o gynnwys yn nhaflen waith Excel fod yn ddefnyddiol yn eich cyfathrebiad e-bost. Yn yr erthygl hon, byddwn yn cyflwyno dull o anfon e-bost gydag pasting ystod benodol i'r corff e-bost yn uniongyrchol yn Excel.

Anfon e-bost gydag atodiadau lluosog ynghlwm yn Excel
Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook gyda nifer o atodiadau ynghlwm yn Excel.

Anfon e-bost os yw'r dyddiad dyledus wedi'i fodloni yn Excel
Er enghraifft, os yw'r dyddiad dyledus yng ngholofn C yn llai na neu'n hafal i 7 diwrnod (y dyddiad cyfredol yw 2017/9/13), yna anfonwch nodyn atgoffa e-bost at y derbynnydd penodedig yng ngholofn A gyda chynnwys penodol yng ngholofn B. Sut i ei gyflawni? Bydd yr erthygl hon yn darparu dull VBA i ddelio ag ef yn fanwl.

Anfon e-bost yn awtomatig yn seiliedig ar werth celloedd yn Excel
Gan dybio eich bod am anfon e-bost trwy Outlook at dderbynnydd penodol yn seiliedig ar werth celloedd penodol yn Excel. Er enghraifft, pan fydd gwerth cell D7 mewn taflen waith yn fwy na 200, yna crëir e-bost yn awtomatig. Mae'r erthygl hon yn cyflwyno dull VBA i chi ddatrys y mater hwn yn gyflym.

Mwy o sesiynau tiwtorial ar gyfer postio yn Excel ...


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (27)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr iawn, rydych chi'n achub fy mywyd gyda'r templed hwn :D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Favio,
Falch i helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ddim yn gweithio gydag atodiadau yn Office 2016
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Chris,
Gall y cod VBA isod eich helpu. Ar ôl rhedeg y cod, dewiswch gelloedd sy'n cynnwys cyfeiriadau e-bost y byddwch yn anfon e-byst atynt, ac yna dewiswch y ffeiliau y mae angen i chi eu hatodi yn yr e-bost fel atodiadau pan fydd yr ail flwch deialog yn ymddangos. A bydd y llofnod Outlook rhagosodedig yn cael ei arddangos yn y corff e-bost hefyd. Diolch i chi am eich sylw.

Is-AnfonE-bystICyfeiriadMewnCelloedd()
Dim xRg Fel Ystod
Dim xRgEach Fel Ystod
Dim xRgVal Fel Llinyn
Dim xCyfeiriad Fel Llinyn
Dim xOutApp Fel Outlook.Application
Dim xMailOut Fel Outlook.MailItem
Ar Ail-ddechrau Gwall Nesaf
xAddress = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox ("Dewiswch ystod cyfeiriad e-bost", "KuTools For Excel", xAddress, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Application.ScreenUpdating = Anghywir
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
Gosod xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Os xFileDlg.Show = -1 Yna
Am Bob xRgEach Yn xRg
xRgVal = xRgEach.Value
Os xRgVal Fel "?*@?*.?*" Yna
Gosod xMailOut = xOutApp.CreateItem(olMailItem)
Gyda xMailOut
.Arddangos
.To=xRgVal
.Subject = "Prawf"
.HTMLBody = "Dyma e-bost prawf yn anfon Excel" &"
" & .HTMLBody
Ar gyfer Pob xFileDlgItem Mewn xFileDlg.SelectedItems
.Atodiadau.Add xFileDlgItem
Nesaf xFileDlgItem
'.Anfon
Diwedd Gyda
Gorffennwch Os
Digwyddiadau
Gosod xMailOut = Dim byd
Gosod xOutApp = Dim byd
Application.ScreenUpdating = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio ychwanegu'r llofnod rhagolygon o'r enw "diofyn" ond ni allaf ymddangos ei fod yn gweithio.
allwch chi helpu os gwelwch yn dda? Rwy'n credu bod fy rhesymeg "xMailout" yn anghywir. dyma fy maes diffygiol tybiedig.

Is-orchymyn PreifatButton1_Cliciwch()

Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Dim xMailOut Fel Outlook.MailItem
Ar Ail-ddechrau Gwall Nesaf
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cyfarchion:" &vbNewLine&vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
msgstr "Dyma llinell 2" &vbNewLine&_
msgstr "Dyma llinell 3" &vbNewLine&_
"Dyma llinell 4"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "Teitl E-bost Yma - " & Range("Cell#").value
.Corff = xMailBody
. Ymlyniadau.Ychwanegu ActiveWorkbook.FullName
Gosod xMailOut = xOutApp.CreateItem(olMailItem)
Gyda xMailOut
.Arddangos
Diwedd Gyda
ActiveWorkbook.Save
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Mae eich sgript wedi'i addasu, ceisiwch. Diolch.

Is-orchymyn PreifatButton1_Cliciwch()
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Dim xMailOut Fel Outlook.MailItem
Ar Ail-ddechrau Gwall Nesaf
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
xMailBody = "Cyfarchion:" &vbNewLine&vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
msgstr "Dyma llinell 2" &vbNewLine&_
msgstr "Dyma llinell 3" &vbNewLine&_
"Dyma llinell 4"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "Teitl E-bost Yma - " & Range("Cell#").Value
.Corff = xMailBody
.Attachments.Add ActiveWorkbook.FullName
Gosod xMailOut = xOutApp.CreateItem(olMailItem)
Gyda xMailOut
.Arddangos
Diwedd Gyda
Diwedd Gyda
ActiveWorkbook.Save
Ar Gwall Ewch i 0
Gosod xOutMail = Dim byd
Gosod xOutApp = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i ychwanegu llofnod os yw'r macro yn cael ei ddefnyddio gan ddefnyddiwr lluosog.
ar gyfer ee bydd fy macro yn cael ei redeg gan 3 pherson arall hefyd. Felly sut gall y macro ddefnyddio llofnod y defnyddiwr sy'n rhedeg y macro.
Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gall y cod VBA adnabod y llofnod rhagosodedig yn Outlook yr anfonwr yn awtomatig, ac anfon e-bost gyda'i lofnod ei hun trwy Outlook.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os yw testun fy nghorff wedi'i gysylltu â meysydd tynnu o excel, mae'r defnydd o & .HTMLBody ar ddiwedd y llinyn yn dileu holl destun y corff ac yn gadael y llofnod yn unig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n cael trafferth rhedeg hyn ar excel 2016. Rwy'n cael neges "Gwall Llunio: Math Diffiniedig Defnyddiwr Heb ei Ddiffinio". Helpwch os gwelwch yn dda!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, byddai angen help arnaf gyda fy macro, mae angen i mi fewnosod y llofnod Outlook o dan y bwrdd, a allech chi fy helpu gyda hynny?

Is-orchymyn PreifatButton1_Cliciwch()


Rhagolwg gwan Fel Gwrthrych
Dim e-bost newydd Fel Gwrthrych
Dim xArchwilio Fel Gwrthrych
Dim pageEditor Fel Gwrthrych

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

Gydag E-bost newydd
.To = Dalen5.Range("F1")
.CC = ""
.BCC = ""
.Subject = Dalen5.Range("B5")
.Corff = Dalen5.Range("B41")
.arddangos

Gosod xInspect = newEmail.GetInspector
Gosod pageEditor = xInspect.WordEditor

Taflen5.Range("B6:I7").Copi

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

.arddangos
Gosod pageEditor = Dim byd
Gosod xInspect = Dim byd
Diwedd Gyda

Gosod newEmail = Dim byd
Set outlook = Dim byd

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Bara,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl,
A all rhywun fy helpu gyda fy VBA,
Dwi angen y llofnod yn yr e-bost a grëwyd:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi, gallaf ychwanegu llofnod nawr ond yna mae'n dileu bylchau rhwng paragraff o destun. Os gwelwch yn dda Allwch chi fy Helpu?


Is-helofyd()
Dim OutApp Fel Gwrthrych
Dim OutMail Fel Gwrthrych
Dim cell Fel Ystod
Llwybr Dim Fel Llinyn
Llwybr = Application.ActiveWorkbook.Path
Set OutApp = CreateObject ("Outlook.Application")

Ar gyfer Pob cell Mewn Ystod ("C4:C6")
Gosod OutMail = OutApp.CreateItem(0)
Gydag OutMail
.Arddangos
.To = cell.Value
.Subject = Celloedd(cell.Row, "D").Gwerth
.HTMLBody = "Annwyl" & Celloedd(cell.Row, "B").Gwerth &", " _
& vbNewLine & vbNewLine&_
"Cyfarchion Cynnes" _
& vbNewLine & vbNewLine&_
"Hoffem ni, JK Tramor, gymryd cyfle a chyflwyno ein cwmni JK Overseas, sy'n ymwneud â'r busnes halen am y 3 blynedd diwethaf. Ar hyn o bryd rydym yn gryf yn ddomestig ac yn ehangu dramor. Ni yw'r cyflenwr o Edible Salt, Halen sy'n Meddalu Dŵr, Halen Dadrewi, Halen Diwydiannol" & "." _
& vbNewLine & vbNewLine&_
"Mae gennym tei-up gyda gweithgynhyrchwyr ar raddfa fawr yn India a chaffael oddi wrthynt Halen ansawdd ac allforion. Felly, rydym yn chwilio am fewnforiwr arbenigol dibynadwy yn ogystal ag asiant dosbarthu i wneud Busnes tymor hir gyda budd i'r ddwy ochr" &" ." _
& vbNewLine & vbNewLine&_
"Cysylltwch â ni gyda'ch gofynion neu ar gyfer unrhyw ymholiadau eraill sydd gennych. Rydym yn darparu logisteg dibynadwy a darpariaeth ar amser. Rydym yn hyderus y bydd ein prisiau mwyaf cystadleuol yn cyd-fynd â'ch disgwyliadau" & "." _
& vbNewLine & vbNewLine&_
.HTMLBody

'.Anfon
Diwedd Gyda
Cell nesaf
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio integreiddio'r cod hwn i'r fformat presennol sydd gennyf ar hyn o bryd lle gallaf awtomeiddio negeseuon e-bost o fewn excel yn seiliedig ar ystod benodol o werthoedd. Byddai unrhyw gymorth o ran ble i ychwanegu'r cod 'llofnod' o fewn yr hyn sydd gennyf ar hyn o bryd yn cael ei werthfawrogi'n fawr.

Is-wiriad CyhoeddusAndSendMail()

'Diweddarwyd gan Extendoffice 2018/11/22

Dim xRgDate Fel Ystod

Dim xRgSend Fel Ystod

Dim xRgText Fel Ystod

Dim xRgDone Fel Ystod

Dim xOutApp Fel Gwrthrych

Dim xMailItem Fel Gwrthrych

Dim xLastRow Cyhyd

Dim vbCrLf Fel Llinyn

Dim xMailBody Fel Llinyn

Dim xRgDateVal Fel Llinyn

Dim xRgSendVal Fel Llinyn

Dim xMailPwnc Fel Llinynnol

Dim I Cyn Hir

Ar Ail-ddechrau Gwall Nesaf

'Nodwch yr ystod dyddiad dyledus

xStrRang = "D2:D110"

Gosod xRgDate = Ystod(xStrRang)

'Nodwch ystod cyfeiriad e-bost y derbynwyr

xStrRang = "C2:C110"

Gosod xRgSend = Ystod(xStrRang)

xStrRang = "A2:A110"

Gosod xRgName = Ystod(xStrRang)

'Nodwch yr ystod gyda chynnwys wedi'i atgoffa yn eich e-bost

xStrRang = "Z2:Z110"

Gosod xRgText = Ystod(xStrRang)

xLastRow = xRgDate.Rows.Count

Gosod xRgDate = xRgDate(1)

Gosod xRgSend = xRgSend(1)

Gosod xRgName = xRgName(1)

Gosod xRgText = xRgText(1)

Gosod xOutApp = CreateObject ("Outlook.Application")

Am I = 1 I xLastRow

xRgDateVal=""

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

Os xRgDateVal <> "" Yna

Os CDate(xRgDateVal) - Dyddiad <= 30 A CDate(xRgDateVal) - Dyddiad> 0 Yna

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

xMailSubject = " Cytundeb Gwasanaeth JBC yn Dod i Ben Ar Y " & xRgDateVal

vbCrLf = "

"

xMailBody=""

xMailBody = xMailBody & "Annwyl" &xRgName.Offset(I - 1).Gwerth & vbCrLf

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

xMailBody = xMailBody & ""

Gosod xMailItem = xOutApp.CreateItem(0)

Gyda xMailItem

.Subject = xMailSubject

.To=xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Arddangos

'.Anfon

Diwedd Gyda

Gosod xMailItem = Dim byd

Gorffennwch Os

Gorffennwch Os

Digwyddiadau

Gosod xOutApp = Dim byd

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n god defnyddiol iawn
Mae angen i mi newid fformat testun o'r dde i'r chwith Yn y llinell xOutMsg
helpwch os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio anfon taflenni unigol o excel i wahanol negeseuon e-bost, ond dim ond y llyfr gwaith ei hun y bydd yn ei atodi. Hefyd, angen gallu ychwanegu fy llinell llofnod i mewn. Unrhyw help? Is AST_Email_From_Excel()

Dim e-bost Cais Fel Gwrthrych
Dim emailItem As Object

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

' Nawr rydyn ni'n adeiladu'r e-bost.

emailItem.to = Ystod ("e2").Gwerth

emailItem.CC = Ystod ("g2").Gwerth

emailItem.Subject = "Offer Techquidation Heb ei Ddychwelyd"

emailItem.Body = "Gweler y daenlen atodedig am eitemau sydd heb eu dychwelyd yn eich ardal"

'Atodwch y Llyfr Gwaith cyfredol
emailItem.Attachments.Add ActiveWorkbook.FullName

'Atodwch unrhyw ffeil oddi ar eich cyfrifiadur.
'emailItem.Attachments.Add ("C:\...)"

'Anfonwch yr e-bost
' emailItem.send

'Arddangos yr e-bost fel y gall y defnyddiwr ei newid fel y dymunir cyn ei anfon
emailItem.Display

Gosod emailItem = Dim byd
Gosod emailApplication = Dim byd

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Chris, Mae'r cod a ddarparwyd gennych wedi'i addasu. Bellach gellir mewnosod llofnod Outlook yn y corff neges. Rhowch gynnig arni. Diolch. Is AST_E-bost_O_Excel()
'Diweddarwyd gan Extendoffice 20220211
Dim e-bost Cais Fel Gwrthrych
Dim emailItem As Object
Gosod emailApplication = CreateObject ("Outlook.Application")
Gosod emailItem = emailApplication.CreateItem(0)

' Nawr rydyn ni'n adeiladu'r e-bost.
emailItem.Display 'Arddangos yr e-bost fel y gall y defnyddiwr ei newid fel y dymunir cyn ei anfon
emailItem.to = Ystod ("e2").Gwerth
emailItem.CC = Ystod ("g2").Gwerth
emailItem.Subject = "Offer Techquidation Heb ei Ddychwelyd"
emailItem.HTMLBody = "Gweler y daenlen atodedig am eitemau sydd heb eu dychwelyd yn eich ardal" &" " & emailItem.HTMLBody

'Atodwch y Llyfr Gwaith cyfredol
emailItem.Attachments.Add ActiveWorkbook.FullName

Gosod emailItem = Dim byd
Gosod emailApplication = Dim byd

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Crystal,Diolch am ei gael i ychwanegu'r llofnod, nid yw'n ymddangos ei fod yn hoffi'r adran HTMLBody er.Pan fyddaf yn rhedeg y macro, mae'n dadfygio ar emailItem.HTMLBody = "Gweler y daenlen atodedig am eitemau sydd heb eu dychwelyd yn eich ardal" & " msgstr " &e-bostItem.HTMLBodya ddim yn cwblhau'r gweddill.  
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Pa fersiwn Excel ydych chi'n ei ddefnyddio? Gall y cod VBA canlynol helpu hefyd. Rhowch gynnig arni. Diolch am eich adborth. Is-Daflen Waith Anfon()
'Diweddariad gan Extendoffice 20220218
Dim xFile Fel Llinynnol
Dim xFformat Cyhyd
Dim Wb Fel Llyfr Gwaith
Dim Wb2 Fel Gweithlyfr
Dim FfeilPath Fel Llinynnol
Enw Ffeil Dim Fel Llinyn
Dim OutlookApp Fel Gwrthrych
Dim OutlookMail Fel Gwrthrych
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Gosod Wb2 = Application.ActiveWorkbook
Dewiswch Achos Wb.FileFormat
Achos xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Achos xlOpenXMLWorkbookMacro wedi'i alluogi:
Os Wb2.HasVBProject Yna
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
arall
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Gorffennwch Os
Achos Excel8:
xFile = ".xls"
xFformat = Excel8
Achos xlExcel12:
xFile = ".xlsb"
xFformat = xlExcel12
Diwedd Dewis
FilePath = Amgylchedd$("temp") & "\"
FileName = Wb.Name & Fformat(Nawr, "dd-mmm-bb h-mm-ss")
Gosod OutlookApp = CreateObject ("Outlook.Application")
Gosod OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFformat
'xstr = Ystod ("e2") & " ; " & Ystod ("g2")
Gyda OutlookMail
.Arddangos
.To = Ystod ("e2")
.CC = Ystod ("g2")
.BCC = ""
.Subject = "Offer Techquidation Heb ei Ddychwelyd"
.HTMLBody = "Gweler y daenlen atodedig am eitemau sydd heb eu dychwelyd yn eich ardal" &" " & .HTMLBody
.Attachments.Add Wb2.FullName
'.Anfon
Diwedd Gyda
Wb2.Close
Lladd FilePath & FileName & xFile
Gosod OutlookMail = Dim byd
Gosod OutlookApp = Dim byd
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Edrych i fod yn Excel 2016 a VBA 7.1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oi Cristal, ychydig iawn o facro a configuração da assinatura do e-bost, com imagens a formatação gwreiddiol. Como consigo datryswr?

Is-geraremail()

Dim OLapp Fel Outlook.Application
Dim janela Fel Outlook.MailItem

Gosod OLapp = Outlook.Application newydd
Gosod janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Map AN"
Anexo01 = ThisWorkbook.Path & \" &Arquivo01 & ".xlsm"


Gyda janela
ActiveWorkbook.Save
.Arddangos
.I = Taflenni ("Sylfaen"). Ystod ("A2").Gwerth
.CC = Taflenni ("Sylfaen"). Ystod ("A5").Gwerth
.Subject = "Mapa - Acrilo" & Fformat(Dyddiad, "dd.mm.yy")
assinatura = .Corff
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anecso o map of Acrilonitrila yn ystyried gan fod y fendas yn rhagflaenu S&OP." & Chr(10) & Chr(10) & assinatura
.Atodiadau.Add Anexo01
Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Com a mudança abaixo, consegui ajustar. Porém a letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, fel y gallwch chi newid y cod?

Is-geraremail()

Dim OLapp Fel Outlook.Application
Dim janela Fel Outlook.MailItem

Gosod OLapp = Outlook.Application newydd
Gosod janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Map AN"
Anexo01 = ThisWorkbook.Path & \" &Arquivo01 & ".xlsm"


Gyda janela
ActiveWorkbook.Save
.Arddangos
.I = Taflenni ("Sylfaen"). Ystod ("A2").Gwerth
.CC = Taflenni ("Sylfaen"). Ystod ("A5").Gwerth
.Subject = "Mapa - Acrilo" & Fformat(Dyddiad, "dd.mm.yy")
assinatura = .Corff
.HTMLBody = "Prezados/fel," & Chr(10) & Chr(10) & "Segue anecso o map o Acrilonitrila yn ystyried gan fod y fendas yn rhagflaenu S&OP." &" " &.HTMLBody
.Atodiadau.Add Anexo01
Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Milla,
Gall y cod VBA canlynol eich helpu i newid ffont y corff e-bost i Calibri, rhowch gynnig arni. Diolch.
Cyn rhedeg y cod, mae angen i chi glicio offer > Cyfeirnod yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna gwiriwch y Llyfrgell Gwrthrychau Microsoft Word blwch ticio yn y Cyfeiriadau - VBAProject blwch deialog fel y screenshot a ddangosir isod.
[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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Milla,
Gall y cod VBA canlynol eich helpu i newid ffont y corff e-bost i Calibri, rhowch gynnig arni. Diolch.
Cyn rhedeg y cod, mae angen i chi glicio offer > Cyfeirnod yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna gwiriwch y Llyfrgell Gwrthrychau Microsoft Word blwch ticio yn y Cyfeiriadau - VBAProject blwch deialog fel y ffeil atodedig a ddangosir isod.
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
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir