VB.net 调用OutLook发邮件(程序自动添加附件)

最新推荐文章于 2025-07-07 15:33:44 发布

原创最新推荐文章于 2025-07-07 15:33:44 发布 · 2.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb.net #path #c

Microsoft 专栏收录该内容

278 篇文章

订阅专栏

本文介绍了一种使用VBA代码来启动Outlook并发送带有附件的电子邮件的方法。通过读取注册表中Outlook的位置信息，构造命令行参数实现自动发送指定收件人、主题及附件的邮件。

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.Registry.ClassesRoot.OpenSubKey(“mailto/shell/open/command”) ‘取得Outlook程序位置
If rkey IsNot Nothing Then
path = rkey.GetValue(“”).ToString() & ” “
path = path.Substring(0, path.IndexOf(” “))
path = path.Replace(“”"”, “”)
rkey.Close()
Try
subject = “hello”
EmailTo = “myfriend@hotmail.com“
AttachPath = “c:/sss.txt”
System.Diagnostics.Process.Start(path, “-c IPM.Note /m ” & EmailTo.Trim & “&subject=” & subject.Trim & ” ” & AttachPath.Trim)
Catch ex As Exception