Originally Posted by
westconn1
are your reports sent out as from alpha or beta?
They are sent from beta. I am alpha
Alpha(me)Beta|-----Inbox
|-----Report1
|-----Report2
I can save to Afolder but not to Report1 or Report2.
I have also triedSet myRecipient = ns.CreateRecipient("beta")
myRecipient.Resolve
Set moveToFolder = ns.GetSharedDefaultFolder(myRecipient, olFolderInbox).Folders("Report1")
Set .SaveSentMessageFolder = moveToFolder
With the same result. Is there a permissions issue?
Public Sub HTML_Test()
Dim objMsg3 As MailItem
Dim folder As Outlook.folder
signature = "<pr> </pr> "
Set objMsg3 = Application.CreateItem(olMailItem) ' create email
With objMsg3
.To = ""
Do While .ReplyRecipients.Count > 0 ' removes current recipients
.ReplyRecipients.Remove 1
Loop
.ReplyRecipients.Add "beta" ' Reply To:
butch = "\\alpha\Inbox\Report1" 'Save to folder path
Set folder = GetFolder(butch) 'Get Save to folder object
Set .SaveSentMessageFolder = folder
.Subject = ""
.SentOnBehalfOfName = "beta" 'the From: field
.BodyFormat = olFormatHTML ' make the format HTML message
.VotingOptions = "Approve;Approve with Comments;"
.HTMLBody = "<p>Hi NPH, <br> <br> </p>" & signature
.Display
End With
Set objMsg3 = Nothing
End Sub