Sut i anfon pob dalen i wahanol gyfeiriadau e-bost o Excel?
Os oes gennych lyfr gwaith gyda sawl taflen waith, ac mae cyfeiriad e-bost yng nghell A1 pob dalen. Nawr, rydych chi am anfon pob dalen o'r llyfr gwaith fel atodiad i'r derbynnydd cyfatebol yng nghell A1 yn unigol. Sut allech chi ddatrys y dasg hon yn Excel? Yr erthygl hon, byddaf yn cyflwyno cod VBA i anfon pob dalen fel atodiad i wahanol gyfeiriad e-bost o Excel.
Anfonwch bob dalen i wahanol gyfeiriadau e-bost o Excel gyda chod VBA
Gall y cod VBA canlynol eich helpu i anfon pob dalen fel atodiad i wahanol dderbynwyr, gwnewch fel hyn:
1. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna, cliciwch Mewnosod > Modiwlau, a chopïwch a gludwch y cod VBA isod i'r ffenestr.
Cod VBA: Anfonwch bob dalen fel atodiad i wahanol gyfeiriadau e-bost
Sub Mail_Every_Worksheet()
'Updateby ExtendOffice
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xFileExt As String
Dim xFileFormatNum As Long
Dim xTempFilePath As String
Dim xFileName As String
Dim xOlApp As Object
Dim xMailObj As Object
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
xTempFilePath = Environ$("temp") & "\"
If Val(Application.Version) < 12 Then
xFileExt = ".xls": xFileFormatNum = -4143
Else
xFileExt = ".xlsm": xFileFormatNum = 52
End If
Set xOlApp = CreateObject("Outlook.Application")
For Each xWs In ThisWorkbook.Worksheets
If xWs.Range("S1").Value Like "?*@?*.?*" Then
xWs.Copy
Set xWb = ActiveWorkbook
xFileName = xWs.Name & " of " _
& VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & " "
Set xMailObj = xOlApp.CreateItem(0)
xWb.Sheets.Item(1).Range("S1").Value = ""
With xWb
.SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
With xMailObj
'specify the CC, BCC, Subject, Body below
.To = xWs.Range("S1").Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add xWb.FullName
.Display
End With
.Close SaveChanges:=False
End With
Set xMailObj = Nothing
Kill xTempFilePath & xFileName & xFileExt
End If
Next
Set xOlApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
- S1 a yw'r gell yn cynnwys y cyfeiriad e-bost yr ydych am anfon yr e-bost ato. Newidiwch nhw i'ch angen.
- Gallwch nodi'r CC, BCC, Pwnc, Corff i'ch un chi yn y cod;
- I anfon yr e-bost yn uniongyrchol heb agor y ffenestr neges newydd ganlynol, mae angen i chi newid .Arddangos i .Anfon.
3. Yna, pwyswch F5 allwedd i redeg y cod hwn, ac mae pob dalen yn cael ei fewnosod yn y ffenestr neges newydd fel atodiad yn awtomatig, gweler y sgrinlun:
4. Yn olaf, 'ch jyst angen i chi glicio anfon botwm i anfon pob e-bost fesul un.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!