To: mineshine老师。（Excel自动发邮件延伸问题）

雷九 · 发表于 2011-12-27 11:24

mineshine 发表于 2011-12-15 11:19
这句代码我已改过
建议查看6楼楼主问题，及7楼我的修改。

感谢mineshine老师的指点回复。我使用7楼的代码执行时，会在倒数第6行“MailItem.Send”处报错。报错内容为：“运行时错误287：应用程序定义或对象定义错误”。不知道是什么原因。是不是还需要在Outlook Express上做设置吗？按道理canciaw老师那儿说能行，我这儿测试应该也行啊。EXCEL别的地方我都没修改，只是CFD表上的邮箱改成我自己的邮箱了。希望mineshine老师再指点一下。非常感谢。

mineshine · 发表于 2011-12-27 12:01

雷九发表于 2011-12-27 11:24
感谢mineshine老师的指点回复。我使用7楼的代码执行时，会在倒数第6行“MailItem.Send”处报错。报错内容 ...

这个代码只能用在Microsoft Outlook
不能用在Outlook Express

建议你用Microsoft Outlook试试看
或参考以下网页
http://www.rondebruin.nl/sendmail.htm

雷九 · 发表于 2011-12-29 15:20

mineshine 发表于 2011-12-27 12:01
这个代码只能用在Microsoft Outlook
不能用在Outlook Express

哦谢谢这样啊

liuchao_hn · 发表于 2012-9-9 16:42

mineshine 发表于 2009-2-13 11:21
Sub AutoMail()
Dim OutlookApp As Object
Dim MailItem As Object

请问要加上本文档做附件怎么改呢？

mineshine · 发表于 2012-9-10 09:25

liuchao_hn 发表于 2012-9-9 16:42
请问要加上本文档做附件怎么改呢？

参考 Mail the whole workbook
http://www.rondebruin.nl/mail/folder2/mail1.htm

cwjcw · 发表于 2012-12-19 14:22

mineshine 发表于 2009-4-29 09:42
我用下面网页修改，你看可以吗?

Mail worksheet in the body of the mail

非常感谢，很有用，而且是直接copy就能用的那种！

kangatang · 发表于 2013-1-13 14:26

本帖最后由 kangatang 于 2013-1-13 14:27 编辑

把所有 "替换成 ‘（单引号）即可

いつもお世話になっております<o:p></o:p>

dl0506 · 发表于 2013-1-11 15:49

mineshine 发表于 2009-2-13 10:34
要配合HTML语法，试看看!!

Sub AutoMail()

问一下，HTML语法，其中关于字体变更的语句，能说一下吗？
比如字体大小，颜色，加粗，斜体

dl0506 · 发表于 2013-1-13 14:11

kangatang 发表于 2013-1-13 13:51
我的英文版outlook。打开邮件，在邮件正文里按鼠标右键，英文名叫VIEW SOURCE CODE

非常感谢，找到了，到时很多，不知道需求的部分是哪些，能再帮看一下么

我需要把一句话，改成这种字体 MS PGothic ，以下应该是起作用的那么发源代码

いつもお世話になっております<o:p></o:p>

dl0506 · 发表于 2013-1-12 15:41

mineshine 发表于 2009-2-13 10:34
要配合HTML语法，试看看!!

Sub AutoMail()

有个问题想请教一下
想把邮件的文本内容不写在VBA中，写在单元格中，这样可以吗？
因为有的邮件文本内容不同，想改变字体和颜色，就不好解决了，不知道有什么好的办法？

		自动登录	找回密码
密码			免费注册

[求助] To: mineshine老师。（Excel自动发邮件延伸问题）