vb制作邮件发送软件

我想用vb做一个邮件发送软件，不过邮件的内容是c盘的123记事本中的内容，请问这个怎么做，代码怎么写？

追问：如何加上附加，比如我要发送附件，附件路径是c盘的a记事本，那这代码怎么改？

答案：'可以有2种方法，局域网用jmail需要链接库不过是免费的，外网更简单
'jmali所有邮件服务器都支持，但下面这个简单但有些服务器不支持，163我测试过是可以的
Option Explicit
Private Sub Command1_Click()
    Dim s As String
    Open "c:\123.txt" For Input As #1
    s = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    Sendmail "主题", s, "" '最后一项也是附件，可以指定文件进行发送
End Sub
Function Sendmail(Subject, Textbody, Attachment)
    Dim NameSpace As String
NameSpace = " http://schemas.microsoft.com/cdo/configuration/"
    With CreateObject("CDO.Message")
        .From = "c1057002@163.com" '你的邮箱地址,自己修改成你的
        .To = "c1057001@163.com"   '要发往的地址,自己修改成你的
        .Subject = Subject '主题
        .Textbody = Textbody '内容
        If Dir(Attachment) <> "" And Attachment <> "" Then .AddAttachment Attachment '如果有就添加附件
        .Configuration.Fields.Item(NameSpace & "sendusing") = 2
        .Configuration.Fields.Item(NameSpace & "smtpserver") = "smtp.163.com" '发送邮件服务器
        .Configuration.Fields.Item(NameSpace & "smtpserverport") = 25
        .Configuration.Fields.Item(NameSpace & "smtpauthenticate") = 1
        .Configuration.Fields.Item(NameSpace & "sendusername") = "c1057002" '你的邮箱用户名,自己修改成你的
        .Configuration.Fields.Item(NameSpace & "sendpassword") = "xxxxxx"   '你的密码,自己修改成你的
        .Configuration.Fields.Update
        .Send
    End With
End Function
发送邮件是能做到，但就是需要控件

上一个：VB获取CMD执行结果
下一个：VB中sendmessage具体用法