G
Guest
1. I would like to get a very simple example witch loops through the contacts
folder and debugs the result and also how to create contacts change them and
delete them I´m using Microsoft Outlook 10.0 Object Library
2. I´m using Access 2000 to generate a file from the database and then I
send it as an attachement to the mail using the following code witch works
perfectly:
Dim iMsg As Object
Dim iConf As Object
Dim iBP
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.From = """Darivan"" <[email protected]>"
.Subject = "Darivan Reklam (Fakturafil) "
.HTMLBody ="<html> some text here</html>"
Set iBP = iMsg.AddAttachment("C:\Reklam_" & Me!Date.Value &
".txt")
.Send
End With
Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Can I get a simple code to create the sent mail in SentItems folder with the
attachement file as if it was sent from Outlook?
So please help me get started
thank you
Mustapha
folder and debugs the result and also how to create contacts change them and
delete them I´m using Microsoft Outlook 10.0 Object Library
2. I´m using Access 2000 to generate a file from the database and then I
send it as an attachement to the mail using the following code witch works
perfectly:
Dim iMsg As Object
Dim iConf As Object
Dim iBP
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = "(e-mail address removed)"
.From = """Darivan"" <[email protected]>"
.Subject = "Darivan Reklam (Fakturafil) "
.HTMLBody ="<html> some text here</html>"
Set iBP = iMsg.AddAttachment("C:\Reklam_" & Me!Date.Value &
".txt")
.Send
End With
Set iBP = Nothing
Set iMsg = Nothing
Set iConf = Nothing
Can I get a simple code to create the sent mail in SentItems folder with the
attachement file as if it was sent from Outlook?
So please help me get started
thank you
Mustapha