item

  • Thread starter Thread starter Paula
  • Start date Start date
P

Paula

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
 
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(olFolderDrafts).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
 
Back
Top