超方便 直接用通讯录excel群发电子邮件
5 F- z0 j" r1 b* Q" ]5 M
笔者都是使用记有好友email地址的excel文件自动给亲友发送电子邮件，这种方法不仅方便快捷，而且这些邮件的收件人、主题、内容、附件都不相同。
( a9 x/ @7 h# }* v2 a为互联网事业发展提供源动力！一、建立亲友通讯录
0 _5 V& d. q5 V9 ]/ G在工作表中建立一个包含不同收件人、主题、内容和附件的亲友通讯录。为互联网事业发展提供源动力！9 [) X# o) q9 y% y8 U% o2 U
二、使用宏实现自动发送电子邮件
. J+ H" J3 f9 d3 t4 ybbs.163k.com打开“工具→宏→visual basic编辑器”，单击“插入→模块”插入一个模块，在“工程”窗口中双击插入的模块，打开它的代码窗口，并输入以下宏:团购网站系统,团购网程序; v9 a+ N7 e# j; L4 j
sub 全自动发送邮件()163K网站系统官方论坛* Z# b4 O! J$ `0 B3 C. k8 N7 Z2 m
"要能正确发送并需要对microseft outlook进行有效配置为互联网事业发展提供源动力！2 T" \* j- w( [( ~' d
on error resume next163k团购网站系统官方服务论坛" @" B% E! _5 m( B
dim rowcount, endrowno
' j8 D5 S5 g, j. q% [- ]" J9 [163k团购网站系统官方服务论坛dim objoutlook as new outlook.application4 A# ^' Z* u) o: U/ X8 J1 l
dim objmail as mailitem
( z, E- U5 x5 zbbs.163k.com"取得当前工作表与cells(1,1)相连的数据区行数2 M% }* _" S( e9 H) e8 J8 g
endrowno = cells(1, 1).currentregion.rows.countbbs.163k.com9 T x$ `2 J2 S
"创建objoutlook为outlook应用程序对象: }' }- K5 v- i1 Y5 |
set objoutlook = new outlook.application
) y$ F) H4 H- \: Q( Y ?) c! X# }, c163K网站系统官方论坛"开始循环发送电子邮件
! ?- I" G" r$ S+ C0 D1 C. o' D& \for rowcount = 2 to endrowno163K网站系统官方论坛% M! T( {& k, u: [5 q
"创建objmail为一个邮件对象
/ Z/ d# D4 Q3 P& c163K网站系统官方论坛set objmail = objoutlook.createitem(olmailitem)团购网站系统,团购网程序. n x# b- |0 p$ `4 F# ~% N3 J
为互联网事业发展提供源动力！, p3 S; z2 f9 @7 l9 D% j
with objmail163k团购网站系统官方服务论坛% Y: y) W: |" c
"设置收件人地址(从通讯录表的“e-mail地址”字段中获得)
( m% X( U& j- D团购网站系统,团购网程序.to = cells(rowcount, 2)163k团购网站系统官方服务论坛5 S* b7 ?# {0 p3 m3 C
% `& \7 Q% n. B9 R( l1 W
为互联网事业发展提供源动力！* w0 U8 P4 b! A# R `+ n
) s# a' M7 D/ ~/ Q$ W
7 `' u* ~! O" A, {' o" h l163K网站系统官方论坛上一篇：excel电子表格也能做成ex
9 y6 H" {- L6 `* F _团购网站系统,团购网程序
