VB.Net电子邮件未将副本放入已发送文件夹

Question

我快疯了！

在VB.Net中发送电子邮件运行良好，甚至读取/发送收据也运行良好。所做的不是，而是将其发送的电子邮件的副本放在已发送的文件夹中。我还需要做什么吗？因为我到处寻找解决方案，但什么都看不到。

EMail.From = New MailAddress(sSENDERaddress)
EMail.Body = sMessage
EMail.Subject = sSubject
If sAttached <> "" Then
Dim mAttachment As New Attachment(sAttached)
EMail.Attachments.Add(mAttachment)
End If
EMail.Headers.Add("Return-Receip-To", sSENDERaddress)
EMail.Headers.Add("Disposition-Notification-To", sSENDERaddress)
EMail.Headers.Add("Return-Path", sSENDERaddress)
EMail.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure Or DeliveryNotificationOptions.OnSuccess ' this will send an email to the SENDER'S email address confirming that the original email was sent. If the sender doesn't get the email, then it didn't go. Simples
SMTPServer.Host = GetMailServerAddress()
SMTPServer.Port = GetMailPort()
SMTPServer.Credentials = Authentication 
Try
SMTPServer.Send(EMail)
'EMail.Dispose()
bRET = True
Catch ex As Exception
''debug.Print(ex.Message)
ExceptIt(ex.Message)
'EMail.Dispose()
bRET = False
End Try

Answer 1

我发现了更多关于这个主题的帖子，看起来你做不到。Heath Robinson唯一的解决方案是在我的发送地址添加BCC。。。

更新：对于那些感兴趣的人来说，它不是SMTP函数，而是IMAP函数。我想，如果你愿意的话，你可以花几个小时来编写代码，但我发现了这个

https://www.example-code.com/vbnet/sendWithCopyToSentMailbox.asp

您只需将其附加到已发送的项目。。。

'  Now use Chilkat IMAP to save the email to Inbox.Sent
Dim imap As New Chilkat.Imap
'  Connect to an IMAP server.
'  Use TLS
imap.Ssl = True
imap.Port = 993
success = imap.Connect("mail.mydomain.com")
If (success <> True) Then
Console.WriteLine(imap.LastErrorText)
Exit Sub
End If

'  Login
success = imap.Login("myLogin","myPassword")
If (success <> True) Then
Console.WriteLine(imap.LastErrorText)
Exit Sub
End If

'  The AppendMail method uploads an email to an IMAP server
'  and saves it in the mailbox specified:
success = imap.AppendMail("Inbox.Sent",email)
If (success <> True) Then
Console.WriteLine(imap.LastErrorText)
Exit Sub
End If

Console.WriteLine("Mail saved to Inbox.Sent")