Get started with Outlook from Access 2000?

  • Thread starter Thread starter Guest
  • Start date Start date
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
 
The following KB articles may be good references.

http://support.microsoft.com/default.aspx?scid=kb;en-us;291120
http://support.microsoft.com/default.aspx?scid=kb;en-us;220595
http://support.microsoft.com/default.aspx?scid=kb;en-us;209955
http://support.microsoft.com/default.aspx?scid=kb;en-us;209948

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


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
 
Back
Top