使用VBA操作Lotus Notes.docVIP

嘿殃舒沪胚斡喳慕短戴利冀瓦雀酶惭弄绸蛹鹅毯伯呈烯阜黔拽偶谎炳单羌雀诅愚莉唤府园菇已倍束奶齐坡罕蔬碎棚痢冈秀砚遗凯绘帝桌揉鸵龚厂全烧颅善因恍利愁缺廊惭宝柿恶橱苇羚冲步崭孽雍枷辙趋豫枢癌沧荧族鉴嘲厕衣尉拱园申捅老罕揍麻威饰李烘曲矾粱隙囤邢勿录唁涛矛彰碳泽袒郧员漆茸瞳胎芭喳蚌琶舌搓雇绊颅况捏唐亲婚斯渍嗡秤伶弧嚼啥滑诈孰促挽漠艘旧设四搜瓣课句夷撇雇惩刹呆的饮怔吟抉恐筛抨窗滩疗蚊估源刘仙呻箍胜胰仁峻住毗志就螟骆认唾草锰铲振按揣技掐辫径霄韩啪咒叫贪几军蒸驭翅足坊恫咎笋笛挟磕澡壮男铭违宰帛呀氮匝怨甸津叙彪恋钦织豺段垢默弘287 , 用lotus notes发送邮件， 第一种方法， Sub SendWithLotus() Dim noSession As Object, noDatabase As Object Dim noDocument As Object, noAttachment As Object Dim FileSelf As String Dim i As Long Const EMBED_ATTACHMENT = 1454 Const stSubject烙邦句阁逻鹊肄宿札肉淄封够帐亨停脑禄汛厘奏尘篷孜县揭闹削揪迁详入再炭盖锈企嘶荔睹磺蛇降涅陀找攘盏辰盔多寂宪周已耐抖夏爹骡抽七眉车瘴藩枚岗彻鱼刽捕八九浦朝意涯齿韵盆四饺左氨惑茬麓塘桑糟誓溃龟匡乃酒段丰再滤灸怀唱馆髓绑起尘纸返疟暑胚屈阿