So far so good. The code at bottom scans for new unread emails and captures and displays the email in text format.
Last phase not working.
FOR EACH loAttachment IN loMess.Attachments
IF loAttachment.Type = 1
loAttachment.SaveAsFile("C;\Downloads\"+loAttachment.FileName)
ENDIF
ENDFOR
extract from:
http://www.aksel.com/whitepapers/OutlookAutomation.htmI need to open and store attachments that come with the email in a folder called downloads. I have tried various placements of the code above without success - should it work? - if so, how would I integrate it with code below to collect the attachement my downloads directory.
(i had added these lines to the code below and it now runs without error but also without effect. But it's guesswork on my part
local loAttachment as object && at this locale (1)
loattachment = lonamespace.getattachment(olfolderinbox) &&(2)
many thanks
k
LOCAL loOutlook AS Outlook.Application
LOCAL loNameSpace AS Outlook.NameSpace
LOCAL loInBox AS Object
LOCAL loMess AS Outlook.MailItem
LOCAL lnUnRead AS Integer
#DEFINE olFolderInBox 6
loOutlook = CREATEOBJECT('Outlook.Application')
loNameSpace = loOutlook.GetNamespace("MAPI")
loInBox = loNameSpace.GetDefaultFolder(olFolderInBox)
lnUnRead = 0
? "You have " + TRANSFORM(loInBox.Items.Count) + " Messages"
FOR EACH loMess IN loInBox.Items
IF loMess.UnRead
wordfound = "N"
lnUnRead = lnUnRead + 1
set alte to m.txt
set alte on
? "************************"
?
? "Subject: " + loMess.Subject
? "Body: " + loMess.body
? "************************"
?
?
close alte
modi file.m.txt
do emcheck
if wordfound = "Y"
endif
close alte
ELSE
ENDIF
ENDFOR
? "Total of UnRead Messages " + TRANSFORM(lnUnRead)
proc emcheck
close alte
if 'TestWord'$cFile = .T.
wordfound = "Y"
cFile = Filetostr("c:\db\prg\menu\m.txt")
wait window "YES - do processing"
else
wait window "no - skip this one"
endif
wordfound = "Y"