附件访问VBA

时间:2017-04-22 16:39:31

标签: vba ms-access outlook access-vba

请你帮助我。

我创建了一个包含附件字段的表单,其中屏幕截图以.jpg格式附加。我正在尝试编写一些VBA代码来自动化电子邮件流程以从表单发送电子邮件,我希望能够将屏幕截图附加到电子邮件中(已经附在表单上的那个)是否有办法做这个。我尝试过使用.attachment.add me.attachmentfield。但是,这并没有附加任何电子邮件。请告知如何做到这一点。

另外在另一个问题上,我使用组合框选择要发送电子邮件的人,(这是存储在另一个表中的电子邮件地址)我无法在电子邮件中填写框所选个人的电子邮件地址。请告知如何做到这一点。

提前致谢。

约什

1 个答案:

答案 0 :(得分:0)

实际上,Access附件字段不是电子邮件附件。 Access没有内置电子邮件客户端,因此您必须使用CDO或Outlook对象库等电子邮件客户端库:

this.fireOnce = function(){ ... }
this.fireRandomly = function(){ ... }
this.fireAtTarget = function(){ ... }
this.fireWave = function(){ ... }

this.beginFire = function(){
    if(hp<3000){
        this.fireWave();
    }
    else if(hp<5000){
        this.fireAtTarget();
    }
    else if(hp<9000){
        this.fireRandomly();
    }
    else{
        this.fireOnce();
    }

    setTimeout(beginFire, 500);

}

使用Field.SaveToFile将Access附件转储到临时文件。