如何用MAPI和CDONTS来发邮件

妮妮小盆友55

妮妮小盆友55

2016-01-29 13:31

如何用MAPI和CDONTS来发邮件,如何用MAPI和CDONTS来发邮件

不想另外安装第三方的发邮件组件,想直接利用MS的。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com)

请问在VB里如何用MAPI来发送邮件(好像MAPI是OUTLOOK和OE自带有的吧),需要像在OE里发邮件一样先手工设置好发信帐号吗?能不能像JMAIL一样在发信时指定SMTP服务器及发信验证用户名和密码?

哪里有CDONTS发邮件的源码?我需要能指定发邮件的SMTP及认证用户名和密码的那个版本的,这就相当于JMAIL能实现的功能了,好像低版本的CDO不支持,汗~~~~~

下面是使用winsock实现的发送邮件,但其它问题仍未解决,等待高手

eSTMP.vbp
-------------------------------------------
Type=Exe
Object={248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0; MSWINSCK.OCX
Form=frmmail.frm
Startup="Form1"
HelpFile=""
Title="Email发送"
ExeName32="Email.exe"
Command32=""
Name="Email"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="dapha.net"
VersionFileDescription="Email发送,支持服务器认证,超文本邮件内容"
VersionLegalCopyright="Copyright 2002 dapha.net"
VersionProductName="Email发送软件"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com)


frmMail.frm
-----------------------------------------
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "邮件发送程序(支持smtp服务器验证)"
   ClientHeight    =   5550
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5550
   ScaleWidth      =   5805
   StartUpPosition =   3  'Windows Default
   Begin MSWinsockLib.Winsock Winsock1
      Left            =   2640
      Top             =   2520
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.TextBox txtmessage1
      Height          =   1695
      Left            =   0
      MultiLine       =   -1  'True
      TabIndex        =   8
      Text            =   "frmmail.frx":0000
      ToolTipText     =   "这里为超文本信件内容"
      Top             =   3480
      Width           =   5775
&nbs

展开更多 50%)
分享

猜你喜欢

如何用MAPI和CDONTS来发邮件

电脑网络
如何用MAPI和CDONTS来发邮件

发邮件的asp(CDONTS.NewMail)

Web开发
发邮件的asp(CDONTS.NewMail)

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

阿里云邮箱如何收发邮件

电脑网络
阿里云邮箱如何收发邮件

foxmail如何自动转发邮件

电脑网络
foxmail如何自动转发邮件

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

沃邮箱怎么发邮件

手机软件 应用软件
沃邮箱怎么发邮件

foxmail怎么自动转发邮件 foxmail自动转发邮件教程

软件教程
foxmail怎么自动转发邮件  foxmail自动转发邮件教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

《卧虎藏龙》新手攻略之青草/抓马技巧

《卧虎藏龙》新手攻略之青草/抓马技巧

PHP输出控制功能在简繁体转换中的应用

PHP输出控制功能在简繁体转换中的应用
下拉加载更多内容 ↓