78729883的个人资料

求助，vba用cdo接口发邮件，excel可以，word就发布出去 Sub CDOSENDEMAIL() Dim CDOMail As Variant On Error Resume Next '出错后继续执行 Application.DisplayAlerts = False '禁用系统提示 'Application.ChangeFileAccess Mode:=xlReadOnly '将工作簿设置为只读模式报错，所以用了下面那一句 Application.DisplayDocumentInformationPanel = True Set CDOMail = CreateObject("CDO.Message") '创建对象 CDOMail.From = "*****" '设置发信人的邮箱 CDOMail.To = "******" '设置收信人的邮箱; CDOMail.Subject = "" '设定邮件的主题 CDOMail.HtmlBody = "" CDOMail.AddAttachment ThisDocument.fullname '发送本工作簿为附件，这一句一直报错 stUl = "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fschemas.microsoft.com%2Fcdo%2Fconfiguration%2F&urlrefer=b014372b54864db334b644c63ef21832" '微软服务器网址 With CDOMail.Configuration.Fields .Item(stUl & "smtpserver") = "smtp.163.com" 'SMTP服务器地址 .Item(stUl & "smtpserverport") = 25 'SMTP服务器端口 .Item(stUl & "sendusing") = 2 '发送端口 .Item(stUl & "smtpauthenticate") = 1 '远程服务器需要验证 .Item(stUl & "sendusername") = "********" '发送方邮箱名称 .Item(stUl & "sendpassword") = "********" '发送方邮箱密码 .Item(stUl & "smtpconnectiontimeout") = 60 '连接超时（秒） .Update End With CDOMail.Send '执行发送 Set CDOMail = Nothing '发送成功后即时释放对象 If Err.Number = 0 Then MsgBox "成功发送邮件", , "温馨提示" '如果没有出错，则提示发送成功 Else MsgBox Err.Description, vbInformation, "邮件发送失败" '如果出错，则提示错误类型和错误代码 End If Application.DisplayDocumentInformationPanel = True 'Application.ChangeFileAccess Mode:=xlReadWrite '将工作簿设置为读写模式，报错，所以用了上面那一句 Application.DisplayAlerts = True '恢复系统提示 End Sub 感觉是CDOMail.AddAttachment ThisDocument.fullname 有问题还有设置只读、读写请帮忙看一下

imput里面没有id怎么办请问这个id怎么获取，想要用getelementid来填充内容

请问东区的泳池会开放吗开的话大概晚上到几点，周末开放吗

分享贴子分享贴子

去年买的一棵拉宾斯，一棵美早，请帮忙看一下是否是车厘子

today()&"上午" 日期会变成一串数字请问有没有什么函数可以强引用单元格显示的值，或者有什么其他办法解决

没有安装vb的电脑，可以安装sp6补丁吗想要在vbe中使用winsock，请问没有安装vb的电脑，可以安装sp6补丁吗

请帮看一下winsock为啥传不了数据第一张是服务器端，第二张是客户端，两台电脑显示的ip地址是一样的

求大神指导，vba的winsock报错用什么替代求大神指导，准备让填表人各自填到表格中，然后用vba形成一行数据汇总到一台电脑上(vb做个小程序接收)，现在excel添加winsock报错，请问除了winsock还能用什么方法

vb除了winsock控件还能使用什么办法实现数据传输求大神指导，准备让填表人各自填到表格中，然后用vba形成一行数据汇总到一台电脑上(vb做个小程序接收)，现在excel添加winsock报错，请问除了winsock还能用什么方法

请问excel使用vba发送邮件，怎么将表格的一行发送，能显示表格xi CDOMail.TextBody = Sheets("统计报表").Range("a4").Value CDOMail.HtmlBody = Sheets("统计报表").Range("a4").Value 某个单元格的内容是上面的表达式，将一行添加入表格怎么设置

很多张格式相同的表，请问怎么样用公示表达选择性求和例如求李明加班总时长，一张表我会，用sumif.一个工作簿中有非常多的同格式相同的表单怎么处理

求教怎么用公式让一个单元格的并列项分多个单元格显示例如将人名分别显示在A列

求助，怎么提取前三名数据上面的都是公式算出来的，请问红色单元格的公式怎么编写

一个月前弄的低压，这白色的是愈伤组织吗

虹越的苗子真的不错，每颗挂果100个左右，但是这个盆太小了，需要立即换盆吗，这么小的盆担心支撑不起这些果子，求大神指点

虹越买的便宜吗，凑了一个补铁的，买三盆的话也就七十多

蓝莓能不能嫁接到樱桃上，求大佬解答蓝莓能不能嫁接到樱桃上，求大佬解答，他们都是嫁接到乌饭树

智利水苔消毒扦插之后，需要遮光吗，还是放太阳下？

这个是软枣猕猴桃吗

请问大神，土壤的ph怎么测量，不加水试纸没法测，加了纯水不就请问大神，土壤的ph怎么测量，不加水试纸没法测，加了纯水不就被稀释了么，加多少也没有定量

花变红了，叶子有点黄，是不是却什么呀

大佬们，伊赛苏北可以露天种吗，说是要春季150天冰点以上？温度在-10度到35度，会不会不结果

苔藓苗这么栽行不行，木质种植槽，土层只有6厘米，另外有一颗有授粉成功的，看帖子说要把小面的花果疏掉，是为了让蓝莓长的快点吗？

长成这个样子需要剪枝条吗

省级证监，特殊专业岗位，合格线到底是110还是95？省级证监，特殊专业岗位，合格线到底是110还是95？

第一次半马，两小时一分钟，最近半年累计只跑过25公里感觉自己棒棒的

吧里有财务管理专业的吗？财务问题想一起学习讨论

各位前辈~mpacc非全日制一定要每周到学校学习么，还是网络教学~ 非全日制大概多少分能上~~

请教一个无遮挡发球问题~ 无遮挡发球是指球抛出之后不能遮挡到，还是球触拍时不能遮挡到？举个例子，高抛发球不将抛球的手离开，保持在头的高度，球下落过程中遮到一下，碰到拍子时并不遮挡，这个是不是违例？

求教，怎么统计每位专家应收劳务费用什么函数能显示出来应分别付各位评委多少钱？求教

求西操场搭讪美女方案。

有木有要考三级偏硬的送四年试题汇编美女优先

图书馆和你舍友偶遇了 @Ineskong 她让我喊她学姐

西操场有木有人在

有宿迁的学妹么球认识

今天图书馆里看到一个左胳膊打石膏的同学右手提着包去上自习手机拍照有声音没敢拍

我吃得好玩的好睡得好为毛学校不发三好学生给我

为了防止沉迷，宿舍达成共识，一天只打一局dota 这个共识现在被解释成一天至少打一局dota

发达国家和落后国家的区别发达国家是对外强硬对内软弱，落后国家对内强硬对外软弱……