excel表怎樣直接發郵件

『壹』 在excel里如何直接發送郵件（電腦已經配置好OUTLOOK）

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

『貳』 如何用電子郵件發送excel工作表

你只要將保存發好的Excel文件作為郵件的附件添加到郵件里就可以了。

所有的郵件客戶端和發件頁面都有添加附件的鏈接或按鈕。

下圖是QQ郵箱的撰寫頁面

如果你想用你圖中所示的在Excel界面中直接發送郵件的話，首先要配置好Outlook
express或Outlook（就是Windows自帶的和Office中帶的郵件客戶端程序（嘿嘿，我從來不用，我喜歡用Foxmail）。

詳細配置方式可以查詢你郵箱網站的幫助說明，或再與我聯系

『叄』 怎樣將電子表格或者電子文檔直接發送到電子郵箱

電子郵箱是通過網路電子郵局為網路客戶提供的網路交流電子信息空間。電子郵箱具有存儲和收發電子信息的功能，是網際網路中最重要的信息交流工具。在網路中，電子郵箱可以自動接收網路任何電子郵箱所發的電子郵件，並能存儲規定大小的等多種格式的電子文件，目前常用的電子郵箱有：網易郵箱、新浪郵箱、QQ郵箱等。
電子表格或電子文檔直接發送電子郵箱（以QQ郵箱為例）的步驟如下：
1.
打開電子郵箱網頁並登陸；

2.
在郵箱頁裡面點擊【寫信】，然後跳轉到寫郵件的界面；

3.
輸入收件人的郵箱賬號，輸入郵件的主題和編寫郵件的內容（可以不寫）；

4.
單擊【添加附件】按鈕，選擇要發送的電子文檔並上傳。

5.
點擊【發送】按鈕，郵件發送完成。

『肆』 excel怎麼發郵件給別人

把Excel文件當做附件發送給對方就可以了。所有的文件發送方式都是這樣的，只能以附件的形式發給別人。

『伍』 手機excel怎麼發郵件

手機版Excel里做好表格發給別人的方法：

1、發電子郵件。

2、通過qq傳郵件，長按之後會出現用qq傳的選項。Excel表格一般都保存在手機的documents文件夾。

手機版Excel里做好表格發給別人的方法有如下兩種，Excel表格一般都保存在手機的documents文件夾，發送表格前需要先找到它，然後選擇：

1、發電子郵件，在表格選項里會有作為電子郵件鏈接或者附件發送的選項，選擇一個就可以通過電子郵件發出去了。

2、通過qq發送郵件，在保存好的表格上長按之後，會出現用qq傳給別人的選項，選擇之後跳轉為qq傳遞。

『陸』 excel表格做好了怎樣做為郵件發送

工具：QQ郵箱。

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

『柒』 在excel中怎麼發送郵件

一、建立親友通訊錄
在工作表中建立一個包含不同收件人、主題、內容和附件的親友通訊錄。
二、使用宏實現自動發送電子郵件
打開「工具→宏→Visual Basic編輯器」，單擊「插入→模塊」插入一個模塊，在「工程」窗口中雙擊插入的模塊，打開它的代碼窗口，並輸入以下宏：
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)
"自動發送郵件
.Send
End With
"銷毀objMail對象
Set objMail = Nothing
Next
"銷毀objOutlook對象
Set objOutlook = Nothing
"所有電子郵件發送完成時提示
MsgBox rowCount-1

『捌』 如何通過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表格文件到電子郵件

一、EXCEL文件直接發送，首要條件是電腦裝有Outlook郵箱或其他郵箱軟體，並已經設定OK。
二、如果沒有安裝的話，在EXCEL中直接點擊郵件的「發送」是無法執行的。
可以使用以下方法：
1、打開QQ或163等郵箱，點擊「寫信」。
2、之後，填寫收件人，主題，並上傳EXCEL文檔
附件。
3、根據需要在信紙上寫下要敘述的內容，之後點擊發送即可。

『拾』 EXCEL表格製作好了怎麼直接發送急用！

可以通過QQ、PC版微信、釘釘、郵箱等溝通工具進行發送。以QQ為例，發送方法如下：

1、首先將製作好的EXCEL表格保存起來，點擊「另存為」；