用VB做发送邮件的东西,在内容上怎么把输入框内的文字发送
发布网友
发布时间:2022-05-23 04:23
我来回答
共3个回答
热心网友
时间:2023-10-13 00:57
Private Sub Command1_Click()
Const conSendUsing = "http://schemas.microsoft.com/cdo/configuration/sensing"
Const conServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const conServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const conConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const conAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const conUsessl = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
Const conSendUserName = "http://schemas.microsoft.com/cdo/configuration/sensername"
Const conSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
With Fields
.Item(conSendUsing) = 2 '2为使用外部SMTP服务器,不要更改
.Item(conServer) = "smtp.gmail.com" '改成可用的外部邮件服务器域名
.Item(conServerPort) = 465 '外部SMTP服务器端口,gmail使用465,其它一般使用25
.Item(conConnectionTimeout) = 10 '设定连接超时,单位秒
.Item(conUsessl) = True '是否使用SSL安全套接字,gmail为true,其它一般false
.Item(conAuthenticate) = 1 '1为发送邮件需要认证,通常不要更改
.Item(conSendUserName) = "xxxxxx" 改成你的邮箱用户名
.Item(conSendPassword) = "xxxx" 改成你邮箱的密码
.Update
End With
Set objMessage = CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
.To = Trim(" xxxxxxx") '改成接收者的邮件地址
.From = "xxxxxxxxxxxx" '改成发送人的邮件地址,要和上面的邮件系统相同
.Subject = Trim("xxx") '改成邮件标题
.TextBody = Trim(Text1.text) '正文 就是你要的TEXT中内容
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
End Sub
热心网友
时间:2023-10-13 00:57
http://zhidao.baidu.com/question/573970230.html?oldq=1
请参考,有问题先多百度、google,找不到再问。
热心网友
时间:2023-10-13 00:57
Text1.text="我想发送在编辑框里的文字"追问假设这是一个意见反馈的,让别人填写Text1的内容,然后再发出去的