nonsmall 发表于 2008-10-16 12:24:00

[原创]自动发邮件--支持群发+发送附件(当前DWG)功能!

本帖最后由 nonsmall 于 2013-5-13 11:43 编辑 <br /><br /> <p>LISP群发邮件程序---更新的程序见下面</p><p>如果程序出错重新安装office选择安装outlook即可..</p><p>;这里可以自定义地址 标题 内容<br/>(email "<a href="mailto:test@163.com">test@163.com</a>" "ok" "nonsmall作品");测试</p><p>;不要用来刷别人的邮箱啊!!呵呵</p><p>;去掉最后一行可以手动编辑邮件手动发送</p><p>;刚才看了一下</p><p>(email "<a href="mailto:test@163.com">test@163.com</a>;test1@163.com" "ok" "nonsmall作品");</p><p>是可以群发的o(∩_∩)o...</p><p>&nbsp;</p><p>&nbsp;</p><p>手动发送界面</p><p>&nbsp;</p><p>自动发送界面</p><p>&nbsp;</p>

caoyin 发表于 2008-10-16 12:45:00

<p>顶,</p><p>可惜我的电脑</p><p>(setq obj (vlax-create-object "Outlook.Application"))</p><p>返回nil</p>

16335181 发表于 2008-10-16 13:19:00

本帖最后由 作者 于 2008-10-17 9:01:55 编辑 <br /><br /> <p>我也顶&nbsp; 好功能啊&nbsp;&nbsp; 支持原创</p><p>嘿嘿&nbsp; 我的直接粘贴保存就可以用,太好用了,我的是正版OFFICE 2003&nbsp; 正确安装的哦~~呵呵&nbsp;</p>

liminnet 发表于 2008-10-16 16:00:00

caoyin发表于2008-10-16 12:45:00static/image/common/back.gif顶,可惜我的电脑(setq obj (vlax-create-object \"Outlook.Application\"))返回nil

<p></p>同感,我的也一样

nonsmall 发表于 2008-10-16 17:01:00

<p>你们的outlook是否好用呢</p><p>我的电脑:</p><p>命令: (setq obj (vlax-create-object "Outlook.Application"))<br/>#&lt;VLA-OBJECT _Application 055276f4&gt;</p><p></p><p>在 WINDOWS-开始-运行-outlook能运行起outlook么</p>

liminnet 发表于 2008-10-16 17:40:00

找不到呀,是不是没装进去呀,但为什么我在开始-程序outlook express就可以运行呀,到底是什么回事呀

aicr317 发表于 2008-10-16 18:32:00

我运行以后,打开的OUTLOOK 2003,不是OUTLOOK EXPRESS!!!!

16335181 发表于 2008-10-17 09:16:00

liminnet发表于2008-10-16 17:40:00static/image/common/back.gif找不到呀,是不是没装进去呀,但为什么我在开始-程序outlook express就可以运行呀,到底是什么回事呀

<p>我晕&nbsp; ,不会吧&nbsp; 他们说的运行是&nbsp; 徽标键+R&nbsp; 调出来的那个运行!!!!!!!!!!!</p><p>你这样的操作当然能运行,汗死!教你下怎么实现程序能直接在&nbsp;&nbsp; <font color="#ff0000">徽标键+R&nbsp; 调出来的那个运行&nbsp; </font><font color="#000000">里运行 </font></p><p>1.执行“开始”→“运行”命令( <font color="#ff0000">徽标键+R</font>),在打开的“运行”对话框中输入“Regedit”命令,然后单击“确定”按钮打开“注册表编辑器”窗口。</p><p>2.定位到“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion \App Paths”分支。</p><p>3.在“App Paths”项下面,可以看到很多名称为“*.exe”的子项。单击某个子项,可以在右侧窗口中看见的字符串,其中“Path”字符串为该程序的路径。正是因为有了这些子项,我们才可以在“运行”对话框中便捷地启动某一程序。知道了这个原理,便可以自由地为其他程序添加快捷启动方式了。</p><p>下面以添加“FlashGet”为例进行介绍:</p><p>4.假设“FlashGet”的安装路径为“C:\Program Files\FlashGet\FlashGet.exe”。将鼠标定位在“App Path项上,单击鼠标右键,在弹出的快捷菜单中执行“新建”→“项”命令,然后将该项命名为“FlashGet.exe”。</p><p>5.将右侧窗口中默认字符串的“数值数据”设置为“C:\Program Files\FlashGet \FlashGet.exe”。</p><p>6.<font color="#ff0000">退出“注册表编辑器”窗口,然后在“运行”对话框直接输入“FlashGet”,单击“确定”按钮,即可启动FlashGet应用程序</font>。</p><p>注意:新添加的次级主键名称必须要有扩展名,如EXE、TXT等。若使用EXE扩展名,那么在“运行”对话框中只需输入“名称”即可(比如使用了“WinRAR.exe”名称,在“运行”对话框只需输入“WinRAR”);若使用其他扩展名,必须输入“名称+扩展名”才可以启动(比如使用“ABC.txt”名称,则必须在“运行”对话框输入“ABC.txt”才可启动相应文件)。</p><p>这样做好后能不能实现楼主的功能我测试不了,因为我的本来就可以用,呵呵 公司电脑程序不能乱动,哎 </p><p></p>

27012701 发表于 2008-10-17 13:01:00

<p>很强!</p><p>能不能加附件呀?</p><p>再想请楼主写个foxmail的,很多人都用这个,能做到吗?</p>

16335181 发表于 2008-10-17 16:32:00

27012701发表于2008-10-17 13:01:00static/image/common/back.gif很强!能不能加附件呀?再想请楼主写个foxmail的,很多人都用这个,能做到吗?

<p>CAD&nbsp;&nbsp; 文件选项自带发送当前文件为附件的,不过没有邮件接收者,主题之类的</p><p>请参考CAD&nbsp; 文件选项&nbsp;&nbsp;&nbsp; 发送。。。呵呵</p>
页: [1] 2 3 4 5
查看完整版本: [原创]自动发邮件--支持群发+发送附件(当前DWG)功能!