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

Sut i anfon e-bost os yw'r botwm wedi'i glicio yn Excel?

Gan dybio bod angen i chi anfon e-bost trwy Outlook trwy glicio botwm yn nhaflen waith Excel, sut allwch chi wneud? Bydd yr erthygl hon yn cyflwyno dull VBA i'w gyflawni mewn manylion.

Anfon e-bost os yw'r botwm wedi'i glicio gyda chod VBA


Anfon e-bost os yw'r botwm wedi'i glicio gyda chod VBA

Gwnewch fel a ganlyn i anfon e-bost trwy Outlook os yw Botwm Gorchymyn yn cael ei glicio yn llyfr gwaith Excel.

1. Mewnosodwch Botwm Gorchymyn yn eich taflen waith trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:

2. De-gliciwch y Botwm Gorchymyn wedi'i fewnosod, yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde fel y dangosir isod.

3. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol yn ffenestr y Cod gyda'r sgript VBA ganlynol.

Cod VBA: Anfon e-bost os yw'r botwm wedi'i glicio yn Excel

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

Nodiadau:

1). Newidiwch y corff e-bost yn ôl yr angen yn y xMailCorff llinell yn y cod.

2). Amnewid y e-bost Cyfeiriad gyda'r cyfeiriad e-bost derbynnydd yn unol .To = "Cyfeiriad E-bost".

3). Nodwch y derbynwyr Cc a Bcc yn ôl yr angen .CC = “” ac .Bcc = “” adran.

4). Newid y pwnc e-bost yn unol .Subject = "Anfon e-bost prawf trwy glicio botwm".

4. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

5. Diffoddwch y Modd Dylunio trwy glicio Datblygwr > Modd Dylunio. Gweler y screenshot:

O hyn ymlaen, bob tro y byddwch chi'n clicio ar y Botwm Gorchymyn, bydd e-bost yn cael ei greu yn awtomatig gyda derbynwyr, pwnc a chorff penodol. Anfonwch yr e-bost trwy glicio ar y anfon botwm.

Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.

Yn hawdd anfon e-bost trwy Outlook yn seiliedig ar feysydd y rhestr bostio a grëwyd yn Excel:

Mae Anfon E-byst cyfleustodau Kutools ar gyfer Excel yn helpu i anfon e-bost trwy Outlook yn seiliedig ar feysydd rhestr bostio a grëwyd yn Excel.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr 30 diwrnod am ddim)


Erthyglau cysylltiedig:


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 (69)
Wedi graddio 3.5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i'n edrych i anfon data o ddata tabl colyn, a allwch chi helpu os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl ysgrifennu'r sgript fel y bydd pan fyddwch yn clicio ar y botwm yn atodi ei hun i'r e-bost fel uchod ond yn dileu'r botwm hefyd? fel nad oes gan y copi o'r ffeil sy'n cael ei e-bostio y botwm arno mwyach?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ychydig yn is na " .Body = xMailBody" ychwanegwch y canlynol
.Attachments.Add ActiveWorkbook.FullName
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Danie.

Ychwanegais y gyfran fel y dywedasoch, ond mae'r botymau ymlaen o hyd ar yr e-bost gyda'r llyfr gwaith atodedig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo a yw'n bosibl ei osod fel nad oes rhaid i mi wasgu anfon - mae'n anfon yr e-bost yn awtomatig????
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Amnewidiwch y llinell .Display gyda .Send i mewn uchod cod VBA.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
dim ond un e-bost y mae'n ei gynhyrchu a bydd yn trosysgrifo'r cynnwys yn hytrach nag agor lluosi drafftiau e-bost.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo i gyd yn gyntaf diolch yn fawr, mae'r swydd hon yn ddefnyddiol iawn ac yn gweithio ar gyfer yr atodiad. Mae hyn yn gweithio i mi ond nid oes unrhyw ddiweddariadau yn cael eu cadw yn y daflen mae'n rhaid i chi daro'r botwm arbed. Hoffwn i'r atodiad gael beth bynnag sydd yn y daflen excel ar hyn o bryd.

Gallaf gyflawni hyn trwy ddefnyddio'r nodwedd Excel a adeiladwyd yn E-bost ond roeddwn i eisiau botwm gan fod angen i mi god caled y cyfeiriad e-bost penodol.

Felly yn gryno hoffwn wybod:

Hoffwn wybod a oes ffordd i: ar ôl defnyddiwr agor y llyfr gwaith excel a gwneud golygiadau os bydd y botwm yn cadw'r atodiad gyda'r diweddariadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Mae'r cod wedi'i optimeiddio. Rhowch gynnig arni a diolch am eich sylw.

Is-orchymyn PreifatButton1_Cliciwch()
'Diweddarwyd gan Extendoffice 2017/9/14
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Dim xMailBody Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
ActiveWorkbook.Save
xMailBody = "Cynnwys y corff" &vbNewLine&vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
"Dyma llinell 2"
Ar Ail-ddechrau Gwall Nesaf
Gyda xOutMail
.To = "Cyfeiriad E-bost"
.CC = ""
.BCC = ""
.Subject = "Anfon e-bost prawf trwy glicio botwm"
.Corff = xMailBody
.Attachments.Add ActiveWorkbook.FullName
.Display' neu ddefnyddio .Send
Diwedd Gyda
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 alla i atodi'r Active Workbook i'r e-bost pan fyddaf yn pwyso'r botwm?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Ychydig yn is na " .Body = xMailBody" ychwanegwch y canlynol
.Attachments.Add ActiveWorkbook.FullName
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Teria como em vez de enviar a planilha, enviar as informações em imagem?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gan ddefnyddio'r cod VBA hwn, a allaf gyfeirio at wybodaeth celloedd yng nghorff yr e-bost? Er enghraifft, sut fyddwn i'n cyfeirio gwerthoedd celloedd at y cod isod?

xMailBody = "Cynnwys y corff" &vbNewLine&vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
"Dyma llinell 2"

Hefyd, gan ddefnyddio'r (.TO = "cyfeiriad e-bost") cod. sut alla i gael y "cyfeiriad e-bost" i dynnu cyfeiriad e-bost o gell yn y golofn nesaf ato.


Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl ychwanegu ail fotwm e-bost o fewn yr un daflen waith? Pan geisiaf ei wneud, mae'n cysylltu â'r cod o'r botwm e-bost gwreiddiol. diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae angen i chi aseinio codau gwahanol i bob botwm.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gan ddefnyddio'r cod VBA hwn, a allaf gyfeirio at wybodaeth celloedd yng nghorff yr e-bost? Er enghraifft, sut fyddwn i'n cyfeirio gwerthoedd celloedd at y cod isod?

xMailBody = "Cynnwys y corff" &vbNewLine&vbNewLine&_
msgstr "Dyma llinell 1" &vbNewLine&_
"Dyma llinell 2"

Diolch,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Glen,
Cymhwyswch y cod canlynol. Diolch i chi am eich sylw.
xMailBody = [B5]
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl, yn lle anfon yr atodiad yn yr e-bost, anfon hyperddolen i'r ffeil (a leolir ar SharePoint)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Laurie,
Methu eich helpu gyda hynny. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allaf gyfeirio at y gwerth mewn cell yn y gwrthrych gyda llinyn? Rhywfaint o amrywiad o'r isod?

.Subject = "Digwyddiad Newydd:" & Target.Address = "$B$38"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Abi,
Newidiwch y cod i .Subject = "Digwyddiad Newydd:" &[B38].
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Yno,
A all unrhyw un fy helpu ar y gofyniad canlynol?
Mae gen i ddalen Excel gyda dwy gwymplen.

1 gwymplen - rhestr o adrannau

2 gwymplen - categori

Yr hyn rydw i eisiau yw pan fyddaf yn dewis adran a chategori o'r rhestrau; (er enghraifft os byddaf yn dewis "gwerthiannau" yn yr adran ac "adroddiad misol" yn y categori)

Mae angen i mi e-bostio'r fersiwn PDF o'r daflen waith honno i'r tîm gwerthu gyda'r pwnc e-bost yn adroddiad misol.

Os byddaf yn dewis "cynhyrchu" o'r rhestr adrannau, dylai'r e-bost fynd at grŵp o bobl yn y cynhyrchiad.

Rwy'n gwerthfawrogi os gallwch chi fy helpu ar hyn

Rasike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rasike,
Mae'n ddrwg gennym ni all eich helpu gyda hynny. Croeso i bostio unrhyw gwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html i gael mwy o gefnogaeth Excel gan weithiwr proffesiynol Excel neu gefnogwyr Excel eraill.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Sut alla i gael y post i ychwanegu fy llofnod yn awtomatig o outlook?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo John,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Diolch am eich sylw.

Is-orchymyn PreifatButton1_Cliciwch()
'Diweddarwyd gan Extendoffice 2019/6/26
Dim xOutApp Fel Gwrthrych
Dim xOutMail Fel Gwrthrych
Ar Ail-ddechrau Gwall Nesaf
Gosod xOutApp = CreateObject ("Outlook.Application")
Gosod xOutMail = xOutApp.CreateItem(0)
Gyda xOutMail
.Display' neu ddefnyddio .Send
.To = "Cyfeiriad E-bost"
.CC = ""
.BCC = ""
.Subject = "Anfon e-bost prawf trwy glicio botwm"
.HTMLBody = "Dyma e-bost prawf yn anfon Excel" &"
" & .HTMLBody
'.Anfon
Diwedd Gyda
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
Oes rhaid i chi fod yn ddefnyddiwr Excel wrth wthio'r botwm i anfon e-bost? neu dim ond rhaid i'r person sy'n derbyn yr e-bost fod yn ddefnyddiwr outlook?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Gan fod angen anfon yr e-bost trwy Outlook ar ôl clicio ar y botwm yn Excel, rhaid bod Outlook wedi'i osod yn eich cyfrifiadur i wneud iddo weithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am anfon y daflen waith excel yn yr e-bost ond nid yw'n ei hanfon. Sut ydych chi'n ysgrifennu cod i anfon dogfen fel e-bost
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Marcus,
Gall y cod VBA isod eich helpu i ddatrys y broblem.

Is-Daflen Waith Anfon()
'Diweddariad 20190626
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
Gyda OutlookMail
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "nodweddion kte"
.Body = "Gwiriwch a darllenwch y ddogfen hon."
.Attachments.Add Wb2.FullName
.Arddangos
'.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
Sut gallaf atodi'r Daflen Waith Actif i'r e-bost pan fyddaf yn pwyso'r botwm?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Grant,
Cliciwch y botwm dde ar y botwm a dewiswch Gweld y Cod, yna copïwch y cod isod rhwng yr Is-linellau Preifat a'r Is-linellau Terfynol. Gobeithio y gallaf helpu. Diolch am eich sylw.

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
Gyda OutlookMail
.To = "skyyang @extendoffice.com "
.CC = ""
.BCC = ""
.Subject = "nodweddion kte"
.Body = "Gwiriwch a darllenwch y ddogfen hon."
.Attachments.Add Wb2.FullName
.Arddangos
'.Anfon
Diwedd Gyda
Wb2.Close
Lladd FilePath & FileName & xFile
Gosod OutlookMail = Dim byd
Gosod OutlookApp = Dim byd
Application.ScreenUpdating = Gwir
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

A oes ffordd i newid enw'r ffeil i'r dyddiad cyfredol pan fydd yn atodi i'r e-bost?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwyf wedi bod yn gweithio ar ddalen, ond ni allaf ei gorffen. Rwy'n gobeithio y gallwch chi fy helpu :)

Rhaid i'r ffeil ei hun fod yn xltm (templed) a rhaid iddi atodi'r ddalen ei hun yn y post.

A llofnod auto, yna byddwn yn hapus iawn.

Diolch ymlaen llaw / Dr. Nang
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n rhedeg taenlen gyda 80 o gyfrifon bar unigol ac wedi defnyddio cod VBA ar y dudalen hon gyda llawer o lwyddiant. Fodd bynnag, yng nghorff yr e-bost hoffwn gopïo a gludo'r ystod benodol o gelloedd cyfrif wrth anfon er mwyn i'r cleient gael hanes. Allwch chi helpu gyda'r cod VBA ar gyfer hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch yn fawr iawn am hyn. Mae wedi bod yn help gwych.

A yw'n bosibl anfon taflen waith weithredol trwy wasgu botwm yn lle'r llyfr gwaith llawn?

Diolch!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir