邮件附件的问题--在线等待
windows2000※domino508
邮件模板R505
两个问题请教:
1。邮件附件不能显示附件文件类型的图标，所有的附件图标都是icon\fileatt.gif，怎样才能让其显示自己文件类型的图表呢？
2。邮件附件另存时不能直接以附件的文件名保存，默认提供的名字是一行编码。
问题点数：0、回复次数：4Top
1 楼jfer（冰儿）回复于 2003-06-04 10:00:47 得分 0
upTop
2 楼jiaojianjj（菩提树）回复于 2003-06-04 18:54:19 得分 0
extractfile()制定附件名Top
3 楼pengpengcsdn（朋子）回复于 2003-06-06 13:55:20 得分 0
能说详细点吗？Top
4 楼jiaojianjj（菩提树）回复于 2003-06-06 17:41:40 得分 0
Dim doc As notesdocument
Dim object As NotesEmbeddedObject
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.document
Dim rtitem As New NotesRichTextItem(doc,"fj")//fj为存在的RTF域
If ( rtitem.Type = RICHTEXT ) Then
Set object= doc.GetAttachment( "boot.ini" )
Call object.ExtractFile(文件名)
End If
可以看看帮助Top
