怎樣在excel中發送郵件

① 怎樣在excel 中設置發送電子郵件

欏輩迦胍桓瞿？椋�凇骯こ獺貝翱謚興�韃迦氳哪？椋�蚩��拇�氪翱冢�⑹淙胍韻潞輳� Sub 全自動發送郵件() "要能正確發送並需要對Microseft Outlook進行有效配置 On Error Resume Next Dim rowCount, endRowNo Dim objOutlook As New Outlook.Application Dim objMail As MailItem "取得當前工作表與Cells(1,1)相連的數據區行數 endRowNo = Cells(1, 1).CurrentRegion.Rows.Count "創建objOutlook為Outlook應用程序對象 Set objOutlook = New Outlook.Application "開始循環發送電子郵件 For rowCount = 2 To endRowNo "創建objMail為一個郵件對象 Set objMail = objOutlook.CreateItem(olMailItem) With objMail "設置收件人地址（從通訊錄表的「E-mail地址」欄位中獲得） .To = Cells(rowCount, 2) "設置郵件主題 .Subject ="新年好！[來自朋友弗人的問候] " "設置郵件內容（從通訊錄表的「內容」欄位中獲得） .Body = Cells(rowCount, 3) "設置附件（從通訊錄表的「附件」欄位中獲得） .Attachments.Add Cells(rowCount, 4) "自動發送郵件 .SendEnd With"銷毀objMail對象 Set objMail = NothingNext"銷毀objOutlook對象"所有電子郵件發送完成時提示

② 怎樣在Excel 中設置發送電子郵件

文件——發送——電子郵件。你首先得設置郵件得interna鏈接

③ 如何通過excel自動發送郵件

方法/步驟

1
創建一個名字為「出貨清單」Excel表單，先製作一個出貨記錄表格。
您可按需要自行製作，做成一行一條目。
在正常內容最後加一行用於選擇是否需要自動發送郵件。

2
再增加一個名字為"清單"的Excel表單。用於列舉各項常用重復內容。
例子中列舉出貨地址清單，聯系人聯系方式清單，還有料號清單。

對各個清單定義范圍。這里以PNlist 命名來定義舉一例，各位可按需定義。
料號清單范圍定義 =清單!$G$2:OFFSET(清單!$G$1,COUNTA(清單!$G:$G)-1,0)

COUNTA(清單!$G:$G) 是用於計算G列有多少行有內容，即有多少個P/N清單。 例子計算結果為4
OFFSET($G$1,4-1，0）計算結果即為$G$4.

所以PNlist 就被成功定義為=清單!$G$2:$G$4

定義地址清單：Addresslist =清單!$A$2:offset($A$1,counta($A:$A)-1,1)
定義聯系人清單：Namelist =清單!$D$2:OFFSET(清單!$D$1,COUNTA(清單!$D:$D)-1,1)

通過定義的清單來校驗數據， 從而保證誤輸入。通過下來選擇也可提高效率。

新建一個名為「模板」的Excel表單，定義要通過郵件發送的內容的模板。
後續會通過宏來拷貝模板，填充內容，調用outlook發送。

注意。 模板請放在第一行以下，因為第一行會用與拷貝發送內容過來做轉制。

按如下圖片步驟錄制一個名為"shipment"的宏。
宏的錄制是錄制單條操作的內容，操作內容根據自己需要按步驟錄制。
多條循環操作需稍微加幾句代碼。
下一步驟會介紹。

如下代碼供參考：
Sub shipment()' shipment arrangement

'如下為錄制內容
Sheets("出貨記錄").Select
Range("B3:I3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("郵件模板").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("G3:H12").Select
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
Selection.Insert Shift:=xlDown
Range("B3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-2]C[-1]"
Range("B4").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[1]"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=R[-4]C[2]"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=R[-5]C"
Range("B7").Select
ActiveCell.FormulaR1C1 = "=R[-6]C[4]"
Range("B8").Select
ActiveCell.FormulaR1C1 = "=R[-7]C[5]"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=R[-8]C[3]"
Range("B10").Select
ActiveCell.FormulaR1C1 = "=R[-9]C[6]"
Range("B3:B10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A1:H1").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("出貨記錄").Select
Range("J3").Select
ActiveCell.FormulaR1C1 = "Closed"
Range("A3:J3").Select
Range("J3").Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.149998474074526
.PatternTintAndShade = 0
End With
'如上為錄制內容
End Sub

打開錄制的宏添加循環代碼。
按圖片步驟及語句在錄制范圍前後添加循環代碼。
Dim i As Integer
Dim j As Integer
Dim g As Integer
Application.ScreenUpdating = False
Sheets("出貨記錄").Select
i = 1
j = Application.WorksheetFunction.CountA(Range("A:A")) + 1
g = 0
'變數i 用於循環，變數j用於判斷有多少行需要循環，變數g 用於郵件發送時定義有多少行需要發送
For i = 1 To j
If Range("j" & i).Value = "Y" Then
'如下為錄制內容
-------------
'如上為錄制內容
g = g + 1
Else
End If
Next i

錄制范圍部分代碼需按圖片更新成變數。

再添加郵件發送代碼，其中有定義一個名為的 RangetoHTML（）的函數。

' 以下語段用於發送郵件
Sheets("出貨記錄").Select
If g = "0" Then
MsgBox "No new shippment set to Y "
Else
g = 10 * g + 2
Dim OutApp As Object
Dim OutMail As Object
Dim MailBody As Range
Sheets("郵件模板").Select
Set MailBody = Range("A3:B" & g)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
On Error Resume Next
With OutMail
.to = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "Shipment Arrangement"
.BodyFormat = Outlook.OlBodyFormat.olFormatHTML
.HTMLBody = RangetoHTML(MailBody)
.Display
End With
On Error GoTo 0
End If
Sheets("出貨記錄").Select
Application.ScreenUpdating = True

RangetoHTML（）的函數 代碼申明
將如下代碼拷貝粘帖到End Sub()之後

Public Function RangetoHTML(rng As Range)
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook

TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
On Error Resume Next
.DrawingObjects.Visible = True
.DrawingObjects.Delete
On Error GoTo 0
End With
With TempWB.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=TempFile, _
Sheet:=TempWB.Sheets(1).Name, _
Source:=TempWB.Sheets(1).UsedRange.Address, _
HtmlType:=xlHtmlStatic)
.Publish (True)
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center
x:publishsource=", _
"align=left x:publishsource=")
TempWB.Close savechanges:=False
Kill TempFile
Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing
End Function

代碼完成。 只需創建一個按鈕方便調用此宏即可。

增加條目後把對應行內郵件通知列改成"Y",然後點「發送郵件」按鈕即可彈出郵件並出貨通知表單內更改狀態。

④ excel表格做好了怎樣做為郵件發送

工具：QQ郵箱。

1、以QQ郵箱發送郵件為例，如下圖excel表格做好了保存在了桌面；

⑤ 如何在EXCELL中發送郵件

首先你的電腦有郵件管理軟體，如OUTLOOK,WINDOWS LIVE MAIL等。在EXCEL中使用文件菜單中的發送-----郵件收件人（以附件形式）會彈出對話框，如果你的郵件管理軟體設置好了，直接輸入對方郵箱就可以，自己的郵件沒有配置好，則要先配置自己的郵箱。

⑥ 在word,Excel中如何直接發送郵件

簡單啊 設置好oe，在word excel 裡面點文件--發送，然後收件人信息，就可以發送了。
具體如何設置OE 稍微一下就好了 哈哈。另外 你的郵箱網站有幫助的

⑦ Microsoft Excel表格怎麼發送郵件

1、首先在電腦中打開需要發送郵件的Excel表格文件，並在打開的頁面左上角點擊「文件」選項。

⑧ 怎樣發送Excel表格文件到電子郵件

一、EXCEL文件直接發送，首要條件是電腦裝有Outlook郵箱或其他郵箱軟體，並已經設定OK。

二、如果沒有安裝的話，在EXCEL中直接點擊郵件的「發送」是無法執行的。

可以使用以下方法：

1、打開QQ或163等郵箱，點擊「寫信」。

⑨ 在Excel里如何直接發送郵件（電腦已經配置好OUTLOOK）

打開excel-點擊文件-共享-電子郵件-可以選擇作為附件發送或易PDF/xps形式發送。

⑩ 如何用Excel發送郵件

excel不是用來發郵件的，是用來做表格的,你點錯了要通過Outlook Express發郵件如果有什麼不會的 六下QQ，我給你遠程