如何制作邮箱程序（如何制作自己的邮箱）

怎么制作自己的邮箱啊

购买域名；

设置企业邮箱/自己搭邮箱；

后续设置；

Step 1: 购买域名：

在这一步，要买一个自己的域名。域名提供商建议选择 GoDaddy，也许贵一些，但很靠谱。域名建议就用自己姓名的拼音 + .com 或 .me 的形式，优先选择 .com，因为这样让别人更容易记忆，以方便他人记忆为第一原则。

Step 2:

这一步，可以选择用现成的企业邮箱，或者自己购买虚拟主机然后安装一些服务器端邮件软件来搭邮件服务器。对于大多数人，强烈建议使用现成的企业邮箱解决方案。因为第一是靠谱。对于个人主力邮箱来说，一定要保证别你发给别人的邮件能顺利到达，且你的邮箱也能收到别人的邮件。遇到问题可以很方便的找到现成的解决办法；第二是人家就是专业做这个的，肯定比我们这些业余做的要好，比如做反垃圾系统，业余爱好者再怎么做也赶不上人家拿工资的人做的；第三是费用低且不太用折腾。推荐选择腾讯、网易的企业邮箱，都是免费的（在这里碎碎念 Google 一万遍，去年 12 月 Google 停止了免费企业邮箱的注册）。我用的就是腾讯的企业邮箱，设置起来还是比较方便的，就是添加账户、添加域名的 MX 记录什么的。唔，添加 MX 大概就是这样：

如果非要自己折腾的话，可以租用 Linode 这样的虚拟主机，然后自己安装 Citadel、Postfix、Zimbra 等邮件服务器软件。

邮件的账户名推荐就用 "me@example.xxx"，当然如果和女朋友（或男朋友）分别建立两个帐号共用一个域名也不错。

Step 3 后续设置:

其实到前两步设置已经基本完成了，这一步基本都是选做的。

首先，为域名添加 SPF 记录，要不然发信有可能会进入别人信箱的垃圾邮件组里。虽然是选做的，不过强烈建议这样做。

然后，如果使用腾讯的企业邮箱的话，很多人会咆哮：「『归档』这个功能在哪儿啊！？」。腾讯的企业邮箱似乎没有像 Gmail 那样很方便的「归档」功能。还有，一些邮件客户端，比如 Mailbox 只支持 Gmail。怎么办？可以在自己常用的 Gmail 里设置通过 POP3 代收企业邮箱的邮件，用 SMTP 代发。这样问题就解决了。当然，这一步也是 optional 的。如果没有「归档」这个习惯或者不用 Gmail 的话，就没必要做了。

怎么设置邮箱

方法如下：

操作设备：戴尔笔记本电脑

操作系统：win10

操作程序：outlook软件1.0

1、首先准备一个139邮箱，然后打开outlook软件。

2、接着点击文件，然后选择添加账户。

3、然后按照如图提示，选择电子邮件账户输入用户名，接着点击确认。

4、然后会出现邮件测试界面，邮箱服务器会发一份邮件进行联通性测试，测试成功，然后点击完成。

5、最后设置成功，进入邮箱，即可邮箱进行管理。

vb制作邮箱收信程序

我只有ACCESS的VBA代码供你参考，vba与vb很多代码是可以共用的，你不妨参与研究下：

ACCESS发送邮件代码

access 2009-02-11 16:41 阅读23 评论0 字号： 大大 中中 小小 Private Sub Command1_Click() '发送邮件，依据ACCESS开发答疑200问P226页

'首先，确保已经安装了OutLook,然后在引用中引用Microsoft OutLook对象，在输入以下代码就可实现创建一个新邮件，并添加一个附件到邮件中，然后发送邮件的功能。

'通过引用OutLook.Application对象，Access可以循环OutLook对象里面的所有内容，例如可以读取OutLook里的所有邮件、联系人、约会、日记等信息，还可修改OutLook内置的“规则精灵”

'的内容。

Dim myOlApp As Object

Dim myNamespace As Object

Set myOlApp = CreateObject("OutLook.Application") '创建OutLook应用程序对象

Set myNamespace = myOlApp.getNamespace("MAPI") '获取MAPI命名空间

Set myFolder = myNamespace.getDefaultFolder(6) '获取默认的文件夹

Set myitem = myOlApp.CreateItem(0) '创建新邮件

myitem.Display

Set myRecipient = myitem.Recipients.Add("rcylbx@21cn.com") '为邮件添加收件人

myRecipient.Type = 1

myitem.Subject = "test" '设置邮件主题

MsgBox "ok"

myitem.Attachments.Add ("d:\test.txt") '添加邮件附件，注意确保硬盘下有这个文件

myitem.Save

myitem.Send

MsgBox "ok"

End Sub

Private Sub Command2_Click()

'代码说明:

'本代码可以在安装了outlook（2000以上版本的）的机器上运行。不过outlook xp 以上

'的版本由于出于防止邮件病毒的目的，对发送邮件进行监控，运用本程序每发送一封

'email都需要用户确认，会有点麻烦，但是还是出于安全的角度考虑。

'可以将这段代码嵌入access的模块?excel的宏中运行?

'程序要求:

'需要引用 "microsoft outlook x.x library"

'代码:

Dim olkapp As Outlook.Application '在使用outlook之前必须先声明outlook应用程序的对象，应用程序

Dim newmail As MailItem '在使用outlook之前必须先声明outlook应用程序的对象，邮件项目对象

Dim emailadd, para As String

Set olkapp = CreateObject("outlook.application") '指定outlook应用程序的实体变量

Set newmail = olkapp.CreateItem(olMailItem) '指定邮件项目的实体变量

'邮件正文内容

para = para + "祝新春快乐，并友情提醒注意新的邮件病毒。"

'收件人的email地址，这里没有输入内容。

emailadd = "rcylbx@21cn.com"

With newmail

.To = emailadd '发送邮件地址

.Subject = "新春快乐" ' 邮件的主题

.Importance = olImportanceHigh '邮件的为重要等级

.Body = para '将邮件正文内容指定para变量内容

'.Send '发送

.Display '启动视窗

End With

On Error GoTo continue

SendEmail:

newmail.Display

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate newmail

GoTo SendEmail '发送不成功誓不罢休

continue:

On Error GoTo 0

Set olkapp = Nothing

Set newmail = Nothing

End Sub

Sub email_send()

Dim olkapp As Outlook.Application

Dim newmail As MailItem

Dim emailadd, para As String

Set olkapp = CreateObject("outlook.application")

Set newmail = olkapp.CreateItem(olMailItem)

'邮件正文内容

para = para + "祝新春快乐，并友情提醒注意新的邮件病毒。"

'收件人的email地址，这里没有输入内容。

emailadd = ""

With newmail

.To = emailadd

.Subject = "新春快乐" ' 邮件的主题

.Importance = olImportanceHigh '邮件的为重要等级

.Body = para '将邮件正文内容指定para变量内容

.Send '发送

End With

End Sub

Private Sub Command3_Click()

'方法一是用代码模拟发送邮件确认 (代码引用论坛前辈的代码)

Dim objOL As Object

Dim itmNewMail As Object

'引用Microsoft Outlook 物件模型

Set objOL = CreateObject("Outlook.Application")

Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.Subject = "chijanzen Mail Test" '主旨

.Body = "发送邮件测试2222" '本文

.To = "rcylbx@21cnl.com" '收件者

.Attachments.Add "d:\test.txt", olByValue, 1, "4th Quarter 1996 Results Chart"

.Display '启动视窗

End With

On Error GoTo continue

SendEmail:

AppActivate itmNewMail

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate itmNewMail

GoTo SendEmail '发送不成功誓不罢休

continue:

On Error GoTo 0

Set objOL = Nothing

Set itmNewMail = Nothing

'再次测试中发现，窗口标题为中文时，AppActivate命令不能执行。将AppActivate命令改为Display方法，可解决此问题，即将AppActivate itmNewMail改为itmNewMail.display。

End Sub

'方法一是用代码模拟发送邮件确认 (代码引用论坛前辈的代码)

Sub SendMail()

Dim objOL As Object

Dim itmNewMail As Object

'引用Microsoft Outlook 物件模型

Set objOL = CreateObject("Outlook.Application")

Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.Subject = "chijanzen Mail Test" '主旨

.Body = Application.UserName "发送邮件测试2222" '本文

.To = "171262953@qq.com" '收件者

.Attachments.Add "C:\PDOS.DEF", olByValue, 1, "4th Quarter 1996 Results Chart"

.Display '启动视窗

End With

On Error GoTo continue

SendEmail:

AppActivate itmNewMail

DoEvents

SendKeys "%s", Wait:=True

DoEvents

AppActivate itmNewMail

GoTo SendEmail '发送不成功誓不罢休

continue:

On Error GoTo 0

Set objOL = Nothing

Set itmNewMail = Nothing

End Sub

'再次测试中发现，窗口标题为中文时，AppActivate命令不能执行。将AppActivate命令改为Display方法，可解决此问题，即将AppActivate itmNewMail改为itmNewMail.display。

Sub Send_Order_Mail()

Dim cnn As ADODB.Connection

Dim rst_cusid, rst_order_list As ADODB.Recordset

Dim olkapp As Outlook.Application

Dim newmail As MailItem

Set olkapp = CreateObject("outlook.application")

Set cnn = New ADODB.Connection

cnn.Open CurrentProject.Connection

Set rst_cusid = New ADODB.Recordset

rst_cusid.Open "select distinct CustomerID,CompanyName,Email from v_order_list", cnn, adOpenKeyset, adLockReadOnly

If rst_cusid.RecordCount 1 Then Exit Sub

Set rst_order_list = New ADODB.Recordset

For i = 1 To rst_cusid.RecordCount

rst_order_list.Open "select * from v_order_list where CustomerID = " + "'" + rst_cusid.Fields(0) + "'", cnn, adOpenKeyset, adLockReadOnly

With rst_order_list

para = "Dear " + .Fields(1) + ":" + Chr(10)

para = para + Space(3) + "Your Company " + .Fields(0) + " has Order those Good:" + Chr(10)

For j = 1 To .RecordCount

para = para + Space(3) + "Good Name :" + .Fields(2) + " Order Date :" + CStr(.Fields(3)) + " Price:" + CStr(.Fields(4)) + Chr(10)

Next

End With

rst_order_list.Close

para = para + Space(30) + "Yours Loadhigh" 'para为信件内容

Set newmail = olkapp.CreateItem(olMailItem)

With newmail

.To = rst_cusid.Fields(2) '接收邮件的信箱

.Subject = rst_cusid.Fields(1) + " Order List" '信件标题

.Body = para

.Send '发送

End With

rst_cusid.MoveNext

para = ""

Next

rst_cusid.Close

Set rst_cusid = Nothing

Set rst_order_list = Nothing

cnn.Close

Set cnn = Nothing

End Sub

Function test1()

Dim objMail As MailItem

Dim objAttachments As Attachment

Dim App As New Outlook.Application

Set objMail = App.CreateItem(olMailItem)

objMail.Save

Set objAttachments = objMail.Attachments.Add("c:\temp\a.xls", olByValue, 1, "a.xls")

With objMail

.To = "chenge@shtip.com.cn" '接收邮件的信箱

.Subject = "test" '信件标题

.Body = "test"

.Send '发送

End With

'objMail.Display

End Function

VBScript code

Set Msg =

CreateObject("CDO.Message")

With Msg

.To = "someone@microsoft.com"

.From = "userX@microsoft.com"

.Subject = "Lunch meeting"

.TextBody = "I have attached the suggested menu."

.AddAttachment ""

.Send

End With

另，若因发垃圾邮件被163.com封账号，可以联系客服解释是电脑中了病毒。

如何制作HTML邮件

首先，我们先说一下如何制作图文HTML邮件。

一、自己写代码

如果不是专业人员，自己写制作图文邮件的代码，那就太难了，反正有很多坑，不再细说。如果不是专业人员，建议不要尝试了，时间和成本都很高。

二、使用现成的平台

难道没有其他办法了，有的，那就是使用别人做好的现成的平台来写HTML邮件，这种方法做邮件就很简单了，可以说人人都会，这种方法不但跳过了写代码这一步，而且其模板都是经过复制测试，兼容性很高，不会出现乱码和错位的情况。具体怎么做，请自行百度搜索“图文并茂+邮件”，就能找到自己的制作方法了。

其次，我们来说一下如何发送HTML邮件。

发送图文HTML邮件很简单，发送方法如下：

首先，复制邮件代码，然后打开自己的邮箱，转换为代码输入方式，粘贴代码，就可以发送邮件了。详见下图（图1为QQ邮箱，图2为163邮箱）。

附：相关概念：

什么是html格式邮件？

HTML邮件就是使用HTML标记来写的邮件。

就邮件类别来说，纯文本邮件和HTML邮件没有区别，都是邮件，但是后者内容和形式更加丰富，可以有颜色、链接和图片，就象一个彩色的图文彩页，表现力更强。

就本质来说，HTML实际上它就是一个网页，但又不同于网页，因HTML邮件要求兼容性必须更好，否则就有可能存在错位无法观看的风险。

那么HTML制作是不是很难呢？从专业写代码的角度说，确实艰难，代码、兼容性、各种邮箱的差异性均有可能造成邮件乱码和错位，达不到展示效果。

实际上难不难关键在于你的着眼点，在于你的解决问题的方法。如果你的方法使用正确了，HTML邮件的制作又是很简单的，因为他们都跳过了写代码，所以适合普通人使用，网上有很多类似的平台，请自行百度搜索“图文并茂+邮件”就会找到适合自己的制作图文邮件的方法，提高制作效率。

怎么在手机上建一个自己的邮箱

你想要在手机上建一个自己的邮箱的话，还是比较简单的，首先你要明确你自己想要建哪一个邮箱是qq邮箱还是360邮箱，还是163邮箱，还是网易邮箱之类的，如果你是想要这样子qq邮箱的话，那你就需要把qq邮箱下载下来，然后直接登录用你qq号登录后，他就有一切的设置，然后你就可以嗯，建一个自己的邮箱了，如果其他邮箱也是同样的使用方法人活一辈子，就活一颗心，心好了，一切就都好了，心强大了，一切问题，都不是问题。

人的心，虽然只有拳头般大小，当它强大的时候，其力量是无穷无尽的，可以战胜一切，当它脆弱的时候，特别容易受伤，容易多愁善感。

心，是我们的根，是我们的本，我们要努力修炼自己的心，让它变得越来越强大，因为只有内心强大，方可治愈一切。

没有强大的敌人，只有不够强大的自己

人生，是一场自己和自己的较量，说到底，是自己与心的较量。如果你能够打开自己的内心，积极乐观的去生活，你会发现，生活并没有想象的那么糟糕。

面对不容易的生活，我们要不断强大自己的内心，没人扶的时候，一定要靠自己站稳了，只要你站稳了，生活就无法将你撂倒。

人活着要明白，这个世界，没有强大的敌人，只有不够强大的自己，如果你对现在的生活不满意，千万别抱怨，努力强大自己的内心，才是我们唯一的出路。

只要你内心足够强大，人生就没有过不去的坎

人生路上，坎坎坷坷，磕磕绊绊，如果你内心不够强大，那这些坎坎坷坷，磕磕绊绊，都会成为你人生路上，一道道过不去的坎，你会走得异常艰难。

人生的坎，不好过，特别是心坎，最难过，过了这道坎，还有下道坎，过了这一关，还有下一关。面对这些关关坎坎，我们必须勇敢往前走，即使心里感到害怕，也要硬着头皮往前冲。

人生没有过不去的坎，只要你勇敢，只要内心足够强大，一切都会过去的，不信，你回过头来看看，你已经跨过了多少坎坷，闯过了多少关。

内心强大，是治愈一切的良方

面对生活的不如意，面对情感的波折，面对工作上的糟心，你是否心烦意乱？是否焦躁不安？如果是，请一定要强大自己的内心，因为内心强大，是治愈一切的良方。

当你的内心，变得足够强大，一切困难，皆可战胜，一切问题，皆可解决。心强则胜，心弱则败，很多时候，打败我们的，不是生活的不如意，也不是情感的波折，更不是工作上的糟心，而是我们内心的脆弱。

真的，我从来不怕现实太残酷，就怕自己不够勇敢，我从来不怕生活太苦太难，就怕自己不够坚强。我相信，只要我们的内心，变得足够强大，人生就没有那么多鸡毛蒜皮。

强大自己的内心，我们才能越活越好

生活的美好，在于追求美好的生活，而美好的生活，源于一颗强大的内心，因为只有内心强大的人，才能消化掉各种不顺心，各种不如意，将阴霾驱散，让美好留在心中。

心中有美好，生活才美好，心中有阳光，人生才芬芳。一颗阴暗的心，托不起一张灿烂的脸，一颗强大的心，可以美化生活，精彩人生，让我们越活越好。

生活有点欺软怕硬，如果你内心很脆弱，生活就会打压你，甚至折磨你，如果你内心足够强大，生活就会奖励你，眷顾你，全世界都会对你和颜悦色。