Am Mon, 09 Jan 2006 18:43:16 GMT schrieb Paula:

Example for getting the first item from the drafts:

dim oMail as Outlook.MailItem
dim obj as object
with application.Session.GetdefaultFolder(olFolderDraft s).Items
if .count Then
Set obj=.Item(1)
If TypeOf obj is Outlook.MailItem Then
' Get a copy of the draft
Set oMail = obj.Copy
endif
endif
End with


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



I send email through Word creating an outllok.object and i put as body
this
routine

Open txtFile For Input As #1
Do While Not EOF(1)
Line Input #1, cTemp
ll = ll & cTemp & vbNewLine
Loop
Close #1

with objItem
.body = ll
....
end with

There is a way to use a saved messaged in drafts and reading it or
copying
it
instead of this code?

tia, Paula