作者：乔山办公网日期：
返回目录：excel表格制作
给段代码自己看
Private Sub Command1_Click()
strName = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
Command1.Enabled = False
objEmail.From = "发送e5a48de588b6e799bee5baa6339邮箱" '指定发送的邮箱
objEmail.To = "目的邮箱" '指定目的邮箱
objEmail.Subject = "hello" '主题
objEmail.TextBody = "nihao" '发送的内容
objEmail.Configuration.Fields.Item(strName & "sendusing") = 2
objEmail.Configuration.Fields.Item(strName & "smtpserver") = "smtp.qq.com" '服务器
objEmail.Configuration.Fields.Item(strName & "smtpserverport") = 25
objEmail.Configuration.Fields.Item(strName & "smtpauthenticate") = 1
objEmail.Configuration.Fields.Item(strName & "sendusername") = Left("发送邮箱", InStr("发送邮箱", "@") - 1)
objEmail.Configuration.Fields.Item(strName & "sendpassword") = "密码" '密码
objEmail.Configuration.Fields.Update
objEmail.Send
Command1.Enabled = True
End Sub
你的意思是word里插入了一个文件，你要把这个文件复制到OUTLOOK中？可以知在word里打开这个文件，然后另存为一份，再贴到outlook中当作附件呀。道如果只是复制内容到outlook中，肯专定可以的，除非属你outlook不是写邮件状态。。或者电脑出错了，重启一下试试。microsoft自己公司出品的软件系列，肯定是兼容的哦。
当你发zhidao送excel的时候，肯定要作为附件发送吧！问版题就在这，怎么实现让程序为权Dim bodyTxt, subjectTxt As String Dim myOlApp As New Outlook.Application
产生原因：
当您的Outlook设置为使用RTF格式撰写和发送邮件，而收件者使用的为非Outlook邮箱时，就可能发生上述问题。因来为当Outlook使用RTF格式发送邮件时，邮件接收者使用的非Outlook邮箱可能不支持RTF格式的邮件。
解决方法：一般认为，该问题在源Outlook设置里的邮件格式里，将格式设置为HTML或纯文本即可解决。但实际上，该解决方法仅适用于Outlook的低版本，不适用于Outlook 2007。
为避免这种情况，您可以将Outlook设置为使用HTML或纯文本格式撰写和发送邮件。以下以Outlook2007为例告诉您如何进行此设置：
· 工具-〉选项，此时“选项”对话框被打开
· 选择“邮件格式”选项板-〉在“以该邮件格式撰写”处选择“HTML”或“纯文本”
· 点击“Internet格式” -〉选择“转换zd成HTML格式”或 “转换成纯文本格式”