邮件群发-不同邮件发不同人(从excel,利用notes).docVIP

Sub 保存到草稿箱() Dim noSession As Object, noDatabase As Object noSession ?? noDatabase ?? Dim noDocument As Object, noAttachment As Object noDocument ?? noAttachment ?? Dim I%, FileSelf$, j As Integer stMsg$, I=邮件数量 stMsg=.Body 邮件信体 FileSelf j Dim vaRecipient() As String vaRecipient=.sendto 邮件地址 Dim vaFiles() As String vaFiles 附件地址和路径 Dim stMsg() As String 修改原程序，将邮件信体设置为字符串数组 Dim stSubject() As String 修改原程序，将邮件标题设置为字符串数组 Dim sh As Shape sh stMsg = Best Regards vbCrLf _ Application.UserName vbCrLf _ vbCrLf _ -------------------------------------------------------------------------- vbCrLf _ (重要文件，因涉及个人奖金评价，请重视。) vbCrLf _ (填写完毕后，请及时上交给我，谢谢。) **** 取消原程序用窗体控件的部分，改为用特征字列 I = 0 ReDim vaRecipient(ActiveSheet.Shapes.Count - 1) As String 邮件地址数组的大小=活动勾选框-1 ReDim vaFiles(ActiveSheet.Shapes.Count - 1) As String 附件地址和路径数据数组的大小=活动勾选框-1 ReDim stMsg(ActiveSheet.Shapes.Count - 1) As String 邮件信体数组的大小=活动勾选框-1 ReDim stSubject(ActiveSheet.Shapes.Count - 1) As String 邮件主题数据的大小=活动勾选框-1 For Each sh In ActiveSheet.Shapes If sh.Type = msoFormControl Then msofromcontrol=窗体控件 If sh.FormControlType = xlCheckBox Then xlcheckbox=复选框 If sh.ControlFormat.Value = 1 Then 找出勾选的邮件地址 vaRecipient(I) = sh.BottomRightCell.Offset(0, 1) 勾选框右边第一列为邮件地址 vaFiles(I) = sh.BottomRightCell.Offset(0, 2) 勾选框右边第二列为附件地址和路径 s