如何在用OUTLOOK发邮件时更换密码

Question

各位DX,我的邮箱密码会不停地换,因为多人用. 想用VBA代码发邮件,但不知道如何设置密码以及在密码不正确的情况下如何用新的密码再发.一共有10个密码.谢谢,急!!!跪求

Answer 1

用JMail组件来发不就简单多了，自己去下一个JMail，然后百度一下JMail的范例

Answer 2

谢谢USPERMANKING的回帖,不过我是一个菜鸟,请问可以用VBA来控制JMAIL吗,我看到的都是用VC,但我只会一点VBA.要是有具体的代码就太感谢了

Answer 3

Jmail是一个COM组件，基本上支持调用COM的语言都可以调用，
当然，VBA也支持调用COM，用CreateObject就可以创建对象使用了。
你可以搜索一下ASP里使用Jmail的范例，ASP是JavaScript或VBScript的脚本，
功能还没有VBA多呢，所以就按照ASP的使用方法来使用没问题的

Answer 4

我就是用的这段代码,但运行的  Set JMail = Server.CreateObject("JMail.SMTPmail")的时候就提示错误,不知道如何错了,我的JMAIL也是注册了. IIS也装了. 请高手指点
Sub Sendmail2()
  Dim myName, myPassword, mySmtpServer
  myName = "zhangzhenhai"
  myPassword = "111111"    '
  mySmtpServer = "smtp.tom.com"
  '我用的是Jmail   pro4.3
  Set JMail = Server.CreateObject("JMail.SMTPmail")
  JMail.silent = True    '屏蔽例外错误，返回FALSE跟TRUE两值J
  JMail.Logging = True    '启用邮件日志
  'Jmail.Charset   =   "Utf-8"'邮件的文字编码为国标编码
  'JMail.Charset = mcharset '"gb2312"
  'Jmail.Charset   =   "US-ASCII"
  JMail.ContentTransferEncoding = "base64"
  JMail.Encoding = "base64"
  'Jmail.ContentType   =   "text/html"'邮件的格式为HTML格式
  JMail.ContentType = "text/plain"
  JMail.MailServerUserName = myName    '登录邮件服务器所需的用户名
  JMail.MailServerPassword = myPassword    '登录邮件服务器所需的密码
  'Jmail.Prority   =   3'邮件的紧急程序,3   为默认值,1   为最快，5   为最慢，
  JMail.From = "[email protected]"       '发件人的E-MAIL地址
  JMail.FromName = "zhangzhenhai"
  'JMail.AddHeader   "Originating-IP",   Request.ServerVariables("REMOTE_ADDR")
  Dim ToEmailAddress, MailSubJect, MailBody
  ToEmailAddress = "[email protected]"
  MailSubJect = "title"
  MailBody = "content"
   
  JMail.AddRecipient ToEmailAddress  '邮件收件人的地址
  JMail.Subject = MailSubJect    '邮件的标题
  JMail.Body = MailBody    '邮件的内容
  'JMail.AddCustomAttachment(   "anyfile.txt",   "Contents   of   file"   )
  Dim succ
  succ = JMail.Send(mySmtpServer, False)      '执行邮件发送（通过邮件服务器地址）
  If succ <> True Then
  'Response.Write(   Jmail.Log   )
  Else
  response.write "发送成功"
  End If
  response.write (JMail.Log)
  JMail.Close '()'关闭对象
  Set JMail = Nothing   '清除对象
End Sub

Answer 5

可以跳过这个提示。
程序里要写代码，outlook也要设置。

Answer 6

Function SendSysMail(MailAddress,MailUser,MailTitle,MailInfo)
   SendSysMail=SendMail("你的SMTP服务器","你的账号","你的密码","",MailAddress,MailUser,MailTitle,MailInfo,"邮件标题","你的邮箱地址",1)
End Function
Function SendMail(SMTPServer,SMTPServerUserName,SMTPServerPassword,MailDomain,MailtoAddress,MailtoName,Subject,MailBody,FromName,MailFrom,Priority)
   dim JMail, msg
   set JMail=Server.CreateObject("JMail.Message")
   JMail.Charset="gb2312" '编码
   JMail.silent=true '设置为true,JMail不会抛出例外错误.
   JMail.ContentType = "text/plain" '邮件正文格式   '用来发送邮件的SMTP服务器(无效)
   'JMail.ServerAddress = SMTPServer
   '指定邮件服务器的地址。可以指定多个服务器，用分号点开。可以指定端口号。
   '如果serverAddress保持空白，JMail会尝试解决远程邮件服务器，然后直接发送到服务器上去。???
   '如：JMail.ServerAddress = &tquo;mail.mydom.net; mail2.mydom.net:2500"   JMail.MailServerUserName = SMTPServerUserName '登录用户名
   JMail.MailServerPassWord = SMTPServerPassword '登录密码
   JMail.MailDomain = MailDomain '域名（如果用“[email protected]”这样的用户名登录时，请指明domain.com
   JMail.AddRecipient MailtoAddress,MailtoName '收信人
   JMail.Subject = Subject '主题
   JMail.Body = MailBody '邮件正文（纯文本格式）
   JMail.FromName = FromName '发信人姓名
   JMail.From = MailFrom '发信人Email
   JMail.Priority = Priority '邮件等级12345
   msg = JMail.Send(SMTPServer)
   JMail.Close
   set JMail = nothing
   if msg then
      SendMail = "+ OK"
   Else
      SendMail = "- ERROR<BR>Smtp服务:" & SMTPServer & "<BR>用户帐号:" & SMTPServerUserName & "<BR>用户密码:" & SMTPServerPassword & "<BR>SMTP域名:" & MailDomain & "<BR>收件人邮箱:" & MailtoAddress & "<BR>收件人名:" & MailtoName & "<BR>收件人名:" & MailtoName & "<BR>主题:" & Subject & "<BR>邮件内容:" & MailBody & "<BR>发件人名:" & FromName & "<BR>发件人邮箱:" & MailFrom & "<BR>发送等级:" & Priority
   End If
End function'直接调用SendSysMail就可以发邮件了，注意修改SendSysMail里的相关内容便可
SendSysMail("目标邮箱地址","发件人名称","邮件标题","具体的邮件内容")