把各个用户的信息发送到它的邮箱

120HYH · 发表于 2011-3-1 23:35

请楼主再改下。

lhdcxz · 发表于 2011-3-2 08:33

以前一点错误都没有，才发到网上的。我试过无数次了。没有办法，只有改好了。
Private Sub CommandButton2_Click() '部分发送，调用列表框形成部分名字
'准备工作
Sheet2.Range("a2" & ":d65536") = ""
Sheet1.Range("J1:J65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AG1"), Unique:=True
Sheet1.Range("ag1:ag65536").Copy Sheet2.Range("a1")
Sheet1.Range("ag1:ag65536").Clear
'用复选框形成发送到客户的名字和邮箱地址（用户名称工作表的C列D列）
Unload UserForm2
UserForm1.Show '显示列表框
End Sub

lhdcxz · 发表于 2011-3-2 09:12

22楼的附件

[ 本帖最后由 lhdcxz 于 2011-3-2 10:25 编辑 ]

120HYH · 发表于 2011-3-2 09:13

楼主好，按你的改过来了，我只要重新输入资料就不行。为什么？请看下。谢谢

120HYH · 发表于 2011-3-2 09:18

不好意思，连发了三个。对不起.

lhdcxz · 发表于 2011-3-2 09:49

没有问题啊。你是不是没有填写密码？你先自己发给自己。

[ 本帖最后由 lhdcxz 于 2011-3-2 09:54 编辑 ]

120HYH · 发表于 2011-3-2 10:04

填了密码，你看下附件就知。改下我的发信内容就这样。

lhdcxz · 发表于 2011-3-2 10:25

我就是下载了你的附件试的啊。你再下载22楼的试试。是不是你的电脑有问题？

[ 本帖最后由 lhdcxz 于 2011-3-2 10:36 编辑 ]

120HYH · 发表于 2011-3-2 10:40

老大，怪事了，下载你的试没问题。就是我一改资料就不行。不可能不改成正确的吧。客户资料改下不行啊。

120HYH · 发表于 2011-3-2 10:42

要不要引用什么东东。？

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

[分享] 把各个用户的信息发送到它的邮箱

请楼主再改下。