VBA 从当前用户地址发送带有 CDO 的电子邮件

Question

I try to send a email with a vba script that uses CDO and Outlook.

I use the script you can find here : http://www.cpearson.com/excel/Email.aspx

It works fine, but I want to send email from the Outlook account of the person using the vba. How I can get the email adress of the current user ?

Answer 1

easiest way to achieve this is to delete all lines that wait for the "fromadress" in thee code from cpearson. If you delete the following lines:

If Len(Trim(FromAddress)) = 0 Then
    SendEMail = False
    Exit Function
End If

and

.From = FromAddress

and change the Definition of the function like this:

Function SendEMail(Subject As String, _
        ToAddress As String, _
        MailBody As String, _
        SMTP_Server As String, _
        BodyFileName As String, _
        Optional Attachments As Variant = Empty) As Boolean

then no fromaddress is set and automaticalyy the standard-address of Outlook will be used.

Answer 2

It's impossible with CDO because .from is a required parameter.

The solution is to use native Outlook VBA (course you should want to send your mail from Outlook not GMAIL or other). There is a lot of example here :

http://www.rondebruin.nl/win/s1/outlook/amail1.htm

http://www.rondebruin.nl/win/s1/outlook/mail.htm