使用word作为正文编辑器(请版主关注)

wantky

大家都知道在outlook时可以以word作为正文编辑器的

在07版本中，要在excel中发邮件，遇到如下问题，
1、用mailitem.body =wd.doucuments.content.text 仅能取到文本值，word中的格式啊、图片啊等不能取用。
2、用mailitem.htmlbody 却要书写html格式
请问
1、有什么直接办法，是不是我的mailitem方法不对
2、（outlook不能录制宏太可惜了！）在写邮件时，我们可以把word的内容全部复制过来，能否用复制粘贴的办法
3、或者直接读取指定word的内容，论坛里有朋友这样做了，可仅仅取得是文本，
4、不要说word不能用，我们在word直接发不是也可以么，用邮件合并也行。

谢谢
另，请问  mailitem.display  sendkey s% 组合和直接用 .send的区别

[ 本帖最后由 wantky 于 2011-6-9 17:51 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

wantky

自己顶一下

dsd999

我看了，正在研究你的问题。

先回答这个：
另，请问  mailitem.display  sendkey s% 组合和直接用 .send的区别

功能上没区别。
一般不用第一种方式。

dsd999

.Body = ActiveDocument.Range.PasteSpecial(DataType:=wdPasteOLEObject)

这样用可以吧。

wantky

Sub subbs()
Dim Wd As New Word.Application
Dim objOL As Object
Dim itmNewMail As Object '引用Microsoft Outlook 物件模型
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
    With itmNewMail
        .Subject = "test"
        .Body = ActiveDocument.Range.PasteSpecial(DataType:=wdPasteOLEObject)
        .To = "luu.lee@163.com"
        .Display
    End With
    SendKeys "%s"
    Set itmNewMail = Nothing
    Set objOL = Nothing
End Sub

显示错误，缺少函数或变量，给前面加个Wd.activedocument也一样

dsd999

你这段代码是运行在Excel里的吗？

wantky

是的.是在Excel里运行

dsd999

公司限制不能用word作为邮件编辑器，所以没法试一些东西。

贴个链接你研究下
http://www.outlookcode.com/threa ... amp;messageid=26382

有问题再问，我回家可以研究。

wantky

谢谢版主，这两天一忙把这事放了一下。
你给的链接很专业，可是对方是基于word的解决方案，和excel还是有点不同。