Using ADO to add email to a Public folder

[Carl Alkema via .NET 247]

I believe that ADO has the functionality to do this. Can anyone please cast some light as to where to begin ?

Thanks

 

[John Wadie]

You can use something like this

Dim con As New ADODB.Connection
con.Provider = "MSDAIPP.DSO"
con.Open("http://MyServer/Public/Folder1", "username", "password", -1)
Dim rec As New ADODB.Record
rec.Open("http://MyServer/public/Folder1/MyMessage.eml", con,
ADODB.ConnectModeEnum.adModeReadWrite,
ADODB.RecordCreateOptionsEnum.adCreateNonCollection Or
ADODB.RecordCreateOptionsEnum.adCreateOverwrite,
ADODB.RecordOpenOptionsEnum.adOpenRecordUnspecified)
rec.Fields("DAV:contentclass").Value = "urn:content-classes:message"
rec.Fields("http://schemas.microsoft.com/exchange/outlookmessageclass").Valu
e = "IPM.Note"
rec.Fields("urn:schemas:httpmail:subject").Value = "Test subject"
rec.Fields("urn:schemas:httpmail:textdescription").Value = "Test body"
rec.Fields.Update()
rec.Close()
con.Close()

Cheers,
John Wadie