作者：乔山办公网日期：
返回目录：excel表格制作
参考下面的VBA代码
Sub Send_Email()
Dim i As Integer
Dim MyOutlookApp As Outlook.Application
Dim MyFolder As Outlook.MAPIFolder
Dim MyNewMail As Outlook.MailItem
Dim MyAttachments As Outlook.Attachments '附件
Set MyOutlookApp = New Outlook.Application
Set MyFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "我的邮件文件夹 ")
Set MyNewMail = MyOutlookApp.CreateItem(olMailItem)
With MyNewMail
.To = " " '目标邮件地址
.Cc=""
.Subject = "test " '标题
.HTMLBody = " <p> <b> This </b> is <font color= '#ff000 '> red </font> </p> "
.AlternateRecipientAllowed = True '此邮e5a48de588b6e799bee5baa6e79fa5e98193364件可转发
.AutoForwarded = True '此邮件允许自动转发
.DeleteAfterSubmit = False '发送后保留副本
'发送之后移动到指定文件夹
.SaveSentMessageFolder = MyOutlookApp.GetNamespace( "MAPI ").GetDefaultFolder(olFolderInbox).Folders( "备份文件夹 ")
.ReadReceiptRequested = True '要求收件人回执
'SaveSentMessageFolder
End With
'附件
Set MyAttachments = MyNewMail.Attachments
MyAttachments.Add "c:\win\abc.txt ", olByValue
MyNewMail.Save '保存
MyNewMail.Send '发送
MyFolder.Display '显示office outlook
End Sub
Dim xlApp as Object
set xlapp = CreateObject("Excel.Application")
'注意这里必须确认“copy某工百作度簿”已经打开，否知则下面的代码道依然会出错！
'通常情况下我会这么做:
Dim wb as object
For wb in xlapp.Workbooks
if wb.name = "某工作不.xls" then Goto WbHasOpened
next
set wb = xlapp.Workbooks.Open("某路径\某工作不.xls")
WbHasOpened:
Art = xlapp.Worksheetfunction.Substitute(wb.Sheets("工作表名").Cells(1, 1), " ", "")
EXCEL引用其他表格文件中的单元格是可以实现的。
一、引用公式：
='C:\Documents and Settings\Administrator\My Documents\[工作簿1.xlsx]Sheet1'!A1
二、以zd上公式由四部分组成，详细解释：
1、C:\Documents and Settings\Administrator\My Documents\ 这部分是“电子表格文件”所在完整的路径。
2、[工作簿1.xlsx]这是工作簿名称，即文件名，内用方括号括起来。
3、Sheet1这是工作表名称（注意：前面三部分用半角单引号括起来）。容
4、最后再加一个!被引用单元格名称即可。
亲爱的最好用一个知 txt 文件作为桥梁 来传输 excel和outlook的通信。
因为excel有线程锁定，您这种思路是不会成功的。
If flagifhasatta2 = True Then
Open "D:\工作总结\20160429翻译工作接管道\" & mi40 & "\log.txt" For Append As #41
Write #41, "非英语校验返回但是没有附件版，具体看邮权件", mi888, mysender, Now(), Mid(item.Body, 1, miend)
Call 校验接收奖金计算noEN
Close #41
On Error GoTo 134
Open "D:\工作总结\20160429翻译工作接管\" & mi40 & "\其他语言校验返回\log.txt" For Append As #43
Write #43, "非英语校验返回但是没有附件，具体看邮件", mi888, mysender, Now(), Mid(item.Body, 1, miend)
Close #43
mycnt = 0
Exit Sub
End If