outlook邮件源码（outlookfoxmail）
本文目录一览：
- 1、求助：outlook 2003 怎么编辑html邮件，内部查看源代码
- 2、OUTLOOK怎么发HTML代码的邮件
- 3、如何用outlook制作网页格式邮件
- 4、outlook vba发邮件问题
- 5、如何使用VBA调用outlook发送邮件源码
求助：outlook 2003 怎么编辑html邮件，内部查看源代码
首先，你可以用任意一个HTML编辑器编写HTML邮件正文，把它保存为.htm文件，然后利用下列方法之一把它放入Outlook邮件：
选择Outlook菜单“工具/选项”，在“邮件格式”选项卡中确保默认的邮件格式是HTML。然后，用IE打开包含邮件内容的.htm文件，选择IE菜单“文件/发送/电子邮件页面”。
在Outlook中，创建一个HTML格式的新邮件。用IE打开包含邮件内容的.htm文档，选择菜单“编辑/全选”、“编辑/复制”。切换到Outlook，点击邮件正文区域，选择菜单“编辑/粘贴”。
在Outlook中，创建一个HTML格式的新邮件，选择菜单“插入/文件”。在“插入文件”对话框中，选择包含邮件内容的.htm文件，然后点击“插入”按钮右边小箭头，选择菜单“作为文本插入”。
另外一种办法是用Word 2002/2000创建HTML文档。在Word中编写好文档后，选择Word菜单“文件/发送/邮件收件人”，这时Word文档上面会出现“收件人”、“抄送”、“主题”等输入框。发送邮件时，Word将使用HTML格式。遗憾的是，Word 2000会在HTML邮件中嵌入大量XML格式信息，达到数K之多，大大增加了邮件体积。但Word 2002提供了剥离这些XML代码的方法，该选项可按如下步骤设置：选择菜单“工具/选项”，选择“常规”选项卡下面的“电子邮件选项”，然后选中“常规”选项卡下面的“发送前筛选HTML”。
OUTLOOK怎么发HTML代码的邮件
提供一个思路，首先你可以做一个能通过url正常访问的html网页，注意html中的地址一定要加上带域名的绝对地址，然后把这个html的源码放到outlook中，进行修改后发送就可以了
如何用outlook制作网页格式邮件
打开outlook，新建邮件，选择“设置文本格式”，选择“HTML”，这样制作的邮件就是网页格式了。
outlook vba发邮件问题
仔细看了一下，原来的代码的确有些问题，这个是我现在用的，我一次只能发不超过15封邮件，否则邮件网关（单位自有邮件服务器）会阻止我。延迟发送是我加的，没有测试。
我下面的代码是在如下情况下使用（很有必要说清楚）。
就我自用来说。
首先，我有一个excel文件，其中存放的是的待发送人员的姓名以及邮件地址。
其次，我会将网络断开，使用word的邮件功能，并使用上述excel中的邮件地址，合并，并批量生成邮件。
之后，因为网络断开，本来要通过outlook发送的邮件，都会因为发送失败出现在发件箱中。出于方便操作和手动控制发送节奏的目的，将发件箱中所有发送失败的邮件拷贝到草稿箱。
最后，重新连接网络，使用上述代码手动一次发个10封左右的邮件，我是发一次歇一会。发送邮件通过vba添加附件。（你所要求的延迟，是我临时加的，没有经过测试）如果加了延迟，你可以修改vba中，一次复制到发件箱邮件的个数，控制时间间隔。（也可以一次复制完毕，我出于测试的目的，第一次通常会用程序从草稿箱移动2个邮件发送，然后检查看有无错误，以免错误过大难以控制）
希望对你有帮助，附现在用的代码。
Option Explicit
'将草稿箱中的邮件发送出去
Const strAttachmentPath = "" '附件路径E:\办公\科研处\国家基金要点提示\2014自然基金模板及简明指南摘要.rar
Const intMailCount = 10 '单次发送邮件数
Sub subSendEmail()
'On Error Resume Next
Dim fld_OutBox AsOutlook.MAPIFolder
Dim objItems As Outlook.Items
Dim myItem As Object
Dim myItems() As Object
Dim iIndex As Integer '延迟技术器
Dim intervalMinute As Integer '延迟分钟数
Dim objMail As Outlook.MailItem
iIndex = 1
Dim n As Integer
If MsgBox("附件:" strAttachmentPath vbCrLf "单次发送邮件数:" intMailCount vbCrLf "以上信息正确与否？", vbOKCancel) vbOK Then
Exit Sub
End If
'获得发件箱
Set fld_OutBox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox)
Set objItems = fld_OutBox.Items
If fld_OutBox.Items.Count = 0 Then
'如果发件箱邮件数为0从草稿箱中移动邮件
'从草稿箱中移动若干邮件到发件箱
funMoveMailToOutBox intMailCount
End If
'如果发件箱存在对象，对其中的邮件执行发送
If objItems.Count 0 Then
For Each objMail In objItems
If (objMail.Class = 43) Then
'发送邮件
If (strAttachmentPath "") Then
'存在附件路径,添加附件
objMail.Attachments.AddTrim(strAttachmentPath), olByValue, 1
End If
'延迟发送
'iIndex = iIndex + 1
'objMail.DeferredDeliveryTime =DateAdd("n", iIndex * intervalMinute, Now)
objMail.Send
End If
Next
End If
End Sub
Function funMoveMailToOutBox(ByVal numEmailAs Integer) As Boolean
'移动numEmail指定的邮件数从draft到outBox
'On Error Resume Next
Dim fld_OutBox AsOutlook.MAPIFolder
Dim fld_Drafts AsOutlook.MAPIFolder
Dim objItemsDrafts AsOutlook.Items
Dim objMail As Outlook.MailItem
Dim n As Integer
n= 0
'获得发件箱对象
Set fld_OutBox =Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox)
'获得草稿箱对象
Set fld_Drafts =Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
Set objItemsDrafts = fld_Drafts.Items
'按照numEmail指定的数值移动邮件
While (objItemsDrafts.Count 0) And (n numEmail)
'如果草稿箱不为空
Set fld_Drafts =Application.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
Set objItemsDrafts = fld_Drafts.Items
Set objMail = objItemsDrafts.GetFirst()
If (objMail.Class = 43) Then
objMail.Move fld_OutBox
Else
Exit Function
End If
n = n + 1
Wend
End Function
如何使用VBA调用outlook发送邮件源码
'将发件箱中的邮件发送出去
Sub subSendEmail()
On Error Resume Next
Dim fld_OutBox As Outlook.MAPIFolder
Dim objItems As Outlook.Items
Dim myItem As Object
Dim myItems() As Object
Dim iIndex As Integer
iIndex = 0
Dim n As Integer
'获得发件箱
Set fld_OutBox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox)
Set objItems = fld_OutBox.Items
If fld_OutBox.Items.Count = 0 Then
'如果发件箱邮件数为0从草稿箱中移动邮件
'从草稿箱中移动若干邮件到发件箱
funMoveMailToOutBox 15
End If
'如果发件箱存在对象，对其中的邮件执行发送
If objItems.Count 0 Then
For n = 1 To objItems.Count
If (objItems(1).Class = 43) Then
'发送邮件
objItems(n).Send
End If
Next n
End If
End Sub
