Hi All,
I would need some quick help please. I would like to 'embed' my company logo in the "auto-email" that gets sent out to our monthly recipients. Here is my code/program to send out an auto-email. How to modify it so that I can add my logo?
Local iMsg,iConf
Declare SHORT InternetGetConnectedState In wininet.Dll;
INTEGER @lpdwFlags, Integer dwReserved
lConnect=displayState()
If lConnect
iMsg = Createobject("CDO.Message")
iConf = Createobject("CDO.Configuration")
Flds = iConf.Fields
With Flds
.Item(" = 2
.Item(" = '??.???.???.???' &&server addy
.Item(" = 25
.Update()
Endwith
With iMsg
.Configuration = iConf
.To = m.emal
.BCC = ""
.From = "my@email.com"
.Subject = "blah blah"
.Fields("Priority").Value = 0 && -1=Low, 0=Normal, 1=High
.Fields.Update()
.HTMLBody = "body blah blah"
.Send()
Endwith
iMsg = .Null.
iConf = .Null.
Flds = .Null.
Else
Messagebox("Could not send the message, your internet connection is down.")
Endif
Procedure displayState
Local lConnected
lConnected = .F.
lpdwFlags = 0
If InternetGetConnectedState (@lpdwFlags, 0) = 1
lConnected = .T.
Endif
Return lConnected
Endproc
Any help would be great please.
Thank You,
FOXUP!
I would need some quick help please. I would like to 'embed' my company logo in the "auto-email" that gets sent out to our monthly recipients. Here is my code/program to send out an auto-email. How to modify it so that I can add my logo?
Local iMsg,iConf
Declare SHORT InternetGetConnectedState In wininet.Dll;
INTEGER @lpdwFlags, Integer dwReserved
lConnect=displayState()
If lConnect
iMsg = Createobject("CDO.Message")
iConf = Createobject("CDO.Configuration")
Flds = iConf.Fields
With Flds
.Item(" = 2
.Item(" = '??.???.???.???' &&server addy
.Item(" = 25
.Update()
Endwith
With iMsg
.Configuration = iConf
.To = m.emal
.BCC = ""
.From = "my@email.com"
.Subject = "blah blah"
.Fields("Priority").Value = 0 && -1=Low, 0=Normal, 1=High
.Fields.Update()
.HTMLBody = "body blah blah"
.Send()
Endwith
iMsg = .Null.
iConf = .Null.
Flds = .Null.
Else
Messagebox("Could not send the message, your internet connection is down.")
Endif
Procedure displayState
Local lConnected
lConnected = .F.
lpdwFlags = 0
If InternetGetConnectedState (@lpdwFlags, 0) = 1
lConnected = .T.
Endif
Return lConnected
Endproc
Any help would be great please.
Thank You,
FOXUP!