估计你发邮件是使用outlook相关一些东西。
看一下论坛里的这个帖子，也许对你有帮助
http://bbs.pfan.cn/post-243095.html

这个我写过不用OUTLOOK组件的.
使用WINSOCK.连接.
按SMTP协议发送命令串.

阿远的源代码非常的好.谢谢阿远
只是好象不能开防火墙呀.我在A机上不能使用,在B机上却可以.B机上没有任何杀毒与防火墙软件.路由器局域网,这是为何呀.

Private Sub Form_Load()
    Dim NameS As String
    Dim Email As Object
    
    NameS = "http://schemas.microsoft.com/cdo/configuration/"
    
    Set Email = CreateObject("CDO.Message")
    Email.From = "wkl.cs.mywc@163.com"                  '发信邮箱
    Email.To = "wkl.cs.mywc@tom.com"                    '收信邮箱
    Email.Subject = "用VB代码发的邮件！"                '邮件主题.
    Email.Textbody = "你收到用VB代码发送的邮件了！"     '邮件内容
    Email.Configuration.Fields.Item(NameS & "sendusing") = 2
    Email.Configuration.Fields.Item(NameS & "smtpserver") = "smtp.163.com"      '发信服务器
    Email.Configuration.Fields.Item(NameS & "smtpserverport") = 25              '端口
    Email.Configuration.Fields.Item(NameS & "smtpauthenticate") = 1
    Email.Configuration.Fields.Item(NameS & "sendusername") = "wkl.cs.mywc"     '发信邮箱用户名
    Email.Configuration.Fields.Item(NameS & "sendpassword") = "123456"         '发信邮箱密码.
    Email.Configuration.Fields.Update
    Email.Send
End Sub