vb 发邮件带附件的问题呢

请问下各位高手，vb里如何实现带附件的发邮件呢，就是一个界面上有个浏览，选好文件后，点击发送按钮，就自动发送到程序里指定的邮箱了，无需用户提供邮箱地址，多谢各位。

解决方案 »

  1.   

    简单的,可以用vbs
    NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
    set Email = CreateObject("CDO.Message")
    Email.From = "[email protected]" '你的邮箱地址
    Email.To = "[email protected]"  '要发往的地址
    Email.Subject = "test" '主题
    Email.Textbody = "test" '测试Email.AddAttachment "c:/TPHKLOCK.TXT" '附件
    Email.AddAttachment "c:/drivez.log" '附件with Email.Configuration.Fields
    .Item(NameSpace&"sendusing")=2
    .Item(NameSpace&"smtpserver") = "smtp.163.com" '发送邮件服务器
    .Item(NameSpace&"smtpserverport")=25
    .Item(NameSpace&"smtpauthenticate")=1
    .Item(NameSpace&"sendusername")="234" '邮箱用户名
    .Item(NameSpace&"sendpassword") = ""  '密码
    .update
    end withEmail.Send
    msgbox "发送成功"
      

  2.   

    可是我们不知道用户的邮箱是163，sohu，或者是国外什么邮箱呢？发送邮件服务器 .Item(NameSpace&"smtpserver") = "smtp.163.com" 这是固定了的，怎么解决无论用户邮箱地址是163，sohu，sina等都可以发送邮件呢
      

  3.   

    这必然是要自己存储对应关系的,比如@163,则设为smtp.163.com
      

  4.   

    我不是坏小孩,这是老师的要求呀,老师的意思是,用户选好图片可以上传给我们,而我们只有邮箱啊,有别的办法就更好了.比如上传到一个ftp什么的  主要就是能收到别人上传给我们的文件.  呜呜, 别误会我