VB.NET导出Outlook邮件，新建压缩文件并自动发送.

置顶 于 2021-11-23 16:56:51 发布
阅读量516 收藏 1
点赞数
文章标签： .net microsoft outlook zip
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Pandy_PB/article/details/121495907
版权
该代码示例展示了如何使用VB.net结合Outlook进行文件压缩、邮件发送以及创建包含HTML表格的邮件内容。首先，它创建一个ZIP文件并压缩指定文件夹，然后通过Outlook发送带有压缩文件附件的邮件，邮件内容包括格式化的HTML表格。接着，代码遍历文件夹，将特定类型的文件添加到新的ZIP文件中，再次发送邮件。邮件接收者、抄送者以及主题可以根据需求更改。
摘要由CSDN通过智能技术生成

VB.net 链接Outlook
添加引用：
Imports Microsoft.Office.Interop.Outlook
Imports Ionic.Zip
在这里插入图片描述
下面直接上代码，希望能帮到大家！
1、直接压缩文件夹

        '"versionFolder" 为存档的路径
        Dim versionFolder As String = "" & SubDir.FullName & "\07-Hot runner System drawing 3D"
        '"zipFile" 为新建的zipfile 压缩空文件，括号里是指定的路径（此处是将整个文件的数据全部压缩）
        Dim zipFile As New ZipFile("" & versionFolder & "\3D_CUTOUT." & jobName & "_" & myVersion & "_" & moulderNO & "_" & Format(Now.Date, "dd.MM.yyyy").ToString & ".zip", System.Text.Encoding.Default)
        '直接压缩整个文件夹  " & myVersion & "
        zipFile.AddDirectory("" & versionFolder & "\" & myVersion & "")
        '此处想做一个缓存，即Form3跳出窗口模式，开始读秒（共10秒）。
        'wait all the file into the zip file 
        Form3.Show()
        Timer2.Enabled = True
        Timer2.Interval = 1000
        Timer2.Start()
        
       'zipfile save 'ZipFile 保存
        zipFile.Save()
       '此处链接的是数据库，大家可以酌情处理
        If Not IsDBNull(DataGridView3.Rows(i4).Cells(9).Value) Then
            mySQ = DataGridView3.Rows(i4).Cells(9).Value.ToString.Substring(0, 13)
        End If
     
        ' send e-mail 
            item = outObj.CreateItem(0)
            item.To = "xx"  '此处需要输入收件人
            item.CC = "xxx" & ";" & "xxx" & ";" & "xxx" & ";" & "xxx" 
            item.Subject = "3D cutout data of project"  '输入主题   
             '此处是增加了两组表格（HTML）,请注意下面所有的"xx"均需要酌情更改自己的内容        
            item.HTMLBody = "Hello Bill:<br/>Please fimd the 3d cutout data of project "xx" as attached.<br/>Please send it to customer for confirmation." &
                        "<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0 style='border-collapse: collapse; border-bottom: medium none; border-left: medium none; mso-border-alt: solid windowtext .5pt; mso-yfti-tbllook: 1184;mso-padding-alt: 0in 5.4pt 0in 5.4pt'>" &
                      "<tr style='mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes'>" &
                   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
                 "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
               "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
             "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
           "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
         "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
       "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
     "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
  "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
  "</td>" &
  "</tr>" &
  "<tr style='mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes'>" &
   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
    "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
     "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
      "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
       "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
        "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
         "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
          "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
           "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
            "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
             "</td>" &
             "</tr>" &
             "</tbody></table>" &
             "<br/><br/>Thank you! <br/> Best Regards"
           '添加附件
            item.Attachments.Add("此处需要输入上面新建ZipFile 的路径")
           '删除上面创建的压缩包，因为如果不删除没办法再次新建。
            My.Computer.FileSystem.DeleteFile("此处需要输入上面新建ZipFile 的路径")
            '邮件显示，或直接发送
            item.Display()  
            'item.send()

2、添加指定的单独文件至压缩包中…

        Dim myManuDraw As String = "" & SubDir.FullName & "\08-Manufacturing Drawings"
        Dim zipFile As New ZipFile("" & myManuDraw & "\" & jobName & "-Manufacturing Drawings.zip", System.Text.Encoding.Default)
        '此处不一样，我做了遍历文件夹获得想要的文件的操作
        For Each SubSubDir As String In My.Computer.FileSystem.GetFiles(myManuDraw, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
            If InStr(SubSubDir, "ASSY") = 0 And InStr(SubSubDir, "BOM") = 0 Then             
                '此处AddFile 格式一定是（文件的Path,""）,不然会在压缩包里建立层层空的文件夹，请注意！
                zipFile.AddFile(SubSubDir, "")
            End If
        Next

        'wait all the file into the zip file 
        Form3.Show()
        Timer2.Enabled = True
        Timer2.Interval = 1000
        Timer2.Start()

        'zipfile save 
        zipFile.Save()

        If Not IsDBNull(DataGridView3.Rows(i4).Cells(9).Value) Then
            mySQ = DataGridView3.Rows(i4).Cells(9).Value.ToString.Substring(0, 13)
        End If

       item = outObj.CreateItem(0)
            item.To = "xx"  '此处需要输入收件人
            item.CC = "xxx" & ";" & "xxx" & ";" & "xxx" & ";" & "xxx" 
            item.Subject = "3D cutout data of project"  '输入主题   
             '此处是增加了两组表格（HTML）,请注意下面所有的"xx"均需要酌情更改自己的内容        
            item.HTMLBody = "Hello Bill:<br/>Please fimd the 3d cutout data of project "xx" as attached.<br/>Please send it to customer for confirmation." &
                        "<table class=MsoTableGrid border=1 cellspacing=0 cellpadding=0 style='border-collapse: collapse; border-bottom: medium none; border-left: medium none; mso-border-alt: solid windowtext .5pt; mso-yfti-tbllook: 1184;mso-padding-alt: 0in 5.4pt 0in 5.4pt'>" &
                      "<tr style='mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes'>" &
                   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
                 "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
               "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
             "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
           "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
         "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
       "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
     "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
  "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
  "</td>" &
  "</tr>" &
  "<tr style='mso-yfti-irow: 0; mso-yfti-firstrow: yes; mso-yfti-lastrow: yes'>" &
   "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
    "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
     "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
      "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
       "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
        "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
         "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
          "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
           "<td style='border-top: windowtext 1pt solid; border-right: windowtext 1pt solid; border-bottom: windowtext 1pt solid; padding-bottom: 0in; padding-top: 0in; padding-left: 5.4pt; border-left: windowtext 1pt solid; padding-right: 5.4pt; mso-border-alt: solid windowtext .5pt' valign='top' width='300'>" &
            "<p Class='MsoNormal' style='margin: 0in 0in 0pt'><span lang='ZH-CN' style='font-family: ; mso-ascii-font-family: 微软雅黑; mso-fareast-font-family: 宋体; mso-fareast-theme-font: minor-fareast; mso-hansi-font-family: 微软雅黑'><font face='宋体'>"xx"</font></span></p>" &
             "</td>" &
             "</tr>" &
             "</tbody></table>" &
             "<br/><br/>Thank you! <br/> Best Regards"
           '添加附件
            item.Attachments.Add("此处需要输入上面新建ZipFile 的路径")
           '删除上面创建的压缩包，因为如果不删除没办法再次新建。
            My.Computer.FileSystem.DeleteFile("此处需要输入上面新建ZipFile 的路径")
            '邮件显示，或直接发送
            item.Display()  
            'item.send()

以上请大家参考，并提出意见，谢谢！

Pandy_PB
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB.net 调用OutLook发邮件(程序自动添加附件)
jeerysoft的专栏
08-30 2964
        Dim rkey As Microsoft.Win32.RegistryKey        Dim path As String        Dim subject As String        Dim EmailTo As String        Dim AttachPath As String        rkey = Microsoft.Win32.Regi
vb.net 利用.net自带的GZipStream压缩或者解压文件的代码，不需要任何第三方控件
11-08
网上很少有用VB写的压缩文件的代码，但是，在网络传输，文件下载,打包发布等等方面的需求又比较多，所以，借鉴了一下C#代码的例子，改造成了VB用的类。另外加上了多层文件夹压缩解压。但是，因为时间有限，只是将文件全部读取到缓存处理，所以，针对大文件没有做特别的处理。例子里面有提示，根据需要自己改动一下吧。
用于压缩文件或目录的VB.NET类文件
IT与开发人员的地盘
05-22 530
本文用于使用vb.net压缩文件或目录。 压缩文件的类和方法在java.io，java.util，java.util.zip类库中可用。要导入这些类和方法，必须在.net组件中添加参考vsjlib库。 .NET类： ImportsSystem.IO Importsjava.io Importsjava.util Importsjava.util.zip介绍 本文用于以简单的方式创...
vb 实现文件压缩与解压缩
09-05
一个实现文件压缩与解压缩,加密的算法程序,核心程序不是用vb实现的,是生成了dll让vb来调用。我测试了几个文本文件,268k的文件压缩到了65k,压缩率和winrar不相上下。看下图效果
VB .NET OUTLOOK SEND EMAIL.zip_vb email_vb.net
09-23
标题 "VB .NET OUTLOOK SEND EMAIL.zip_vb email_vb.net" 暗示这是一个关于使用Visual Basic .NET (VB.NET)通过Microsoft Outlook发送电子邮件的教程或代码示例。描述 "send mail via outlook" 确定了这个主题是关于...
vb.net嵌入和调用资源文件示例.zip
11-13
在VB.NET编程中，资源文件的管理是一项重要的任务，它涉及到程序中静态数据的存储和访问，如字符串、图像、音频、配置文件等。资源文件的嵌入和调用不仅有助于代码的组织，还能提高程序的可移植性和安全性。本示例...
VB.NET导出批注图片源码.txt
12-16
VB.NET导出批注图片源码
vb.net 实现结构体直接保存为文件
03-15
vb.net 实现结构体直接保存为文件 本身作为一个class。将其导入到vb工程，或者在vb.net中新建一个类并复制入代码，即可调用。
VB.NET使用ZipPackage实现ZIP文件压缩解压缩示例
09-17
VB.NET使用ZipPackage实现ZIP文件压缩解压缩示例
VB直接调用OUTLOOK EXPRESS的方法(可以多个附件)，不需要安装OFFICE。
04-25
最近做了一个项目，是老外用的。要求直接调用OUTLOOK EXPRESS，而许多老外机器都不安装OFFICE的OUTLOOK，他们习惯了OE，但发现MAILTO：不能带附件（满世界都找不到MAILTO能成功带附件的方法！）。而MAPI只能显示一个很小的图标，于是自己做了一个，可以带N个附件，附件类型不限，而创建的OE 信件，直接可以差掉，不会提示是否修改，但如果你修改了后再差的话，就会提示是否保存，非常人性化！ 提供直接使用的方法。
VB制作自动发送邮件的DLL文件
06-13
VB制作自动发送邮件的DLL文件,可以调用其方法
VB.Net文件传输类（DLL）
10-05
使用Socket+Thread+TCP+传输算法+分包传输。集成Server（接收端）和Client（发送端）封装成类库DLL。使用时引用-实例化New之后，使用提供属性和过程，一键发送和快速接收文件 相关属性和方法见： http://hi.baidu.com/lipeiyi2006/blog/item/d41a83efe07ef038adafd55a.html
VB.NET控制outlook发邮件及附件
uplili@126.com
07-29 1009
Imports Microsoft.Office.Interop.Outlook Public Class Form1 Dim person As String Dim theme As String Dim mailText As String Dim outObj As New Application Dim item As MailItem ...
vb.net输出dbf文件并压缩示例
weixin_30537451的博客
07-07 549
Imports System.Data.OleDb Imports Lion.IO.SharpZIP.Zip Imports Lion.IO.SharpZIP.Checksums Imports System.IO Module Module1 Sub Main() 'Try Dim cn1 As New OleDbConnection( _ ...
VB.NET发邮件
B类代码区
12-14 2933
如果使用Imports Microsoft.Office.Interop.Outlook 发邮件 程序如下： Imports Microsoft.Office.Interop.Outlook Private Sub sendMail() Dim outObj As New Application Dim item As MailItem item = outObj.CreateItem(0) '设定收件人地址 ite
VB.net读取Outlook签名
weixin_30515513的博客
05-12 94
Outlook2007日文版的例子，默认的签名。工具栏的文字是日语，替换成相应的中文应该就可以了（需要debug查找）。 富文本格式的签名只能在不与正文作字符串连接时才能正确表示，否则就会变成纯文本。 DimolAppAsNewOutlook.Application()DimolItemAsOu...
vb.net连接Outlook发送邮件(亲自实践)
bigheadsheep的专栏
07-03 5902
1.在vb.net工程中添加引用 2.程序如下: Imports Microsoft.Office.Interop.Outlook  Private Sub sendMail()         Dim outObj As New Application         Dim item As MailItem         item = outObj.CreateItem(
Outlook VSTO(VB.net)中mail.Copy和mail.Forward的区别
jubincn的专栏
06-08 224
顾名思义，mail.Copy所获得的对象是与原邮件一摸一样，发件人信息仍是原来的发件人。而mail.Forward则将发件人改为当前的邮箱账号。下面的示例代码用于转发一封选中的邮件： Public Sub SendButton_Click(ByVal buttonControl As Office.CommandBarButton, ByRef Cancel As Boolean) ...
vb.net发送文件
最新发布
08-24
VB.NET发送文件可以使用Socket进行网络通信。首先，我们需要创建一个服务器端和一个客户端。 服务器端代码如下： ```vb.net Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值