Smail邮件客户端脚本源码-按键精灵源码

这么多代码，直接附上按键精灵源码例程吧点击此处下载Smail邮件客户端脚本源码例程

//初始化
Dim 你的邮箱帐号
Dim 你的邮箱密码
Dim 发送邮件地址
Dim 邮件主题
Dim 邮件内容
Dim 邮件附件  

//发送按钮
Event Smail.Button_send.Click  

你的邮箱帐号 = Smail.InputBox_user.Text
你的邮箱密码 = Smail.InputBox_password.Text
发送邮件地址 = Smail.InputBox_to.Text
邮件主题 = Smail.InputBox_q.Text
邮件内容 = Smail.InputBox_body.Text
邮件附件 = Smail.BrowseBox_f.Path  

If 你的邮箱帐号 = "" or 你的邮箱密码 = "" or 发送邮件地址 = "" Then
    MsgBox "请将邮件填写完整",vbExclamation
Else
    返回值 = Lib.网络.发送邮件(你的邮箱帐号,你的邮箱密码,发送邮件地址,邮件主题,邮件内容,邮件附件)  

    If 返回值 = TRUE Then
        MsgBox "邮件发送成功",vbInformation
    Else
        MsgBox "邮件发送失败",vbQuestion
    End If
End If  

End Event  

//重置 按钮
Event Smail.Button_reset.Click
    Smail.InputBox_user.Text = "邮箱账号"
    Smail.InputBox_password.Text = "邮箱密码"
    Smail.InputBox_to.Text = ""
    Smail.InputBox_q.Text = ""
    Smail.InputBox_body.Text = ""
    Smail.BrowseBox_f.Path = ""
    Smail.InputBox_password.PasswordChar = false
End Event  

//定时器
Event Smail.Timer1.Timer
    Smail.Timer1.Enabled = false
    Smail.InputBox_time.Text = Date + Time
    Smail.Timer1.Enabled = True
End Event  

//解密载入时
Event Smail.Load
    Smail.Timer1.Enabled = false
    Smail.Timer1.Interval = 1000
    Smail.Timer1.Enabled = True
End Event  

//账号 焦点
Event Smail.InputBox_user.GotFocus
    If Smail.InputBox_user.Text = "邮箱账号" then
        Smail.InputBox_user.Text = ""
    End If
End Event  

Event Smail.InputBox_user.LostFocus
    If Smail.InputBox_user.Text = "" then
        Smail.InputBox_user.Text = "邮箱账号"
    End If
End Event  

//密码 焦点
Event Smail.InputBox_password.GotFocus
    If Smail.InputBox_password.Text = "邮箱密码" then
        Smail.InputBox_password.Text = ""
        Smail.InputBox_password.PasswordChar = True
    End If
End Event  

Event Smail.InputBox_password.LostFocus
    If Smail.InputBox_password.Text = "" then
        Smail.InputBox_password.Text = "邮箱密码"
        Smail.InputBox_password.PasswordChar = false
    End If
End Event

原文地址：https://www.cnblogs.com/xiazai/p/9651999.html