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表格保存起来，点击“另存为”；