CDO From

[JonWayn]

Sub SendMailUsingCDO() 'CollaborativeDataObject
Dim objMsg As New CDO.Message
Const Self$ = "(e-mail address removed)"
Const Frank$ = "(e-mail address removed)"

With objMsg
.AddAttachment AttachFile
.HTMLBody = CreateHTMLTable(TS)
.Subject = GetNextProcessingDate & " WAC"
.To = Frank
On Error Resume Next
.CC = Self
DoCmd.Hourglass True
SysCmd acSysCmdSetStatus, "Sending WAC. Please wait until hourglass
is reset..."
.Send
End With
End Sub


I use the above code to send email by CDO. Nowhere in that snippet do I
specify who the sender is, however, if the receiver does a reply, I receive
it at my secondary email address. How does CDO determine what email address
to use as the sender.

Also, how can I synchronize a message sent by CDO with my existing OE
account so that the SentItems folder contains the message (Outbox etc.)?

 

[Alex Dybenko]

check your email account settings in outlook - CDO uses default account
settings