Email with Attachments

Post by **HansV** » 16 Apr 2022, 18:55

Thanks. What does the EmailAttachments field contain?

Leesha · Post by **Leesha** » 16 Apr 2022, 19:04

Names of the attachements. The user selects the attachment they want to add to the email

Post by **HansV** » 16 Apr 2022, 19:19

Could you attach a sample database again?

Leesha · Post by **Leesha** » 16 Apr 2022, 19:31

Absolutely!

Post by **HansV** » 16 Apr 2022, 19:46

How about this?

Hans.zip

Leesha · Post by **Leesha** » 16 Apr 2022, 20:13

It works!!!! It gave me an error at first that said that the database was locked by another user. I closed it an reopened and it didn't give me the error again. Now I need to pull into the main DB. Pray it doesn't give me any grief so I can leave you alone! Thanks so much! I can't wait to study the code.
Leesha

Leesha · Post by **Leesha** » 16 Apr 2022, 20:28

It ran form the main database!!!

Thank you so very much!
Leesha

Post by **HansV** » 16 Apr 2022, 21:20

Keep in mind that you or the end user will have to edit the EmailAttachments field, since it now uses your PC's path.

Leesha · Post by **Leesha** » 16 Apr 2022, 21:33

Gotcha! Thanks again!

Leesha · Post by **Leesha** » 18 Apr 2022, 01:58

Hi Hans,
I've managed to add some formatting to what you built for me and have not blown it up! I am wondering if it is possible to format me.FirstName in the code below? If it's possible I'd like it to be Segoe Script in a 16 bold.
Thanks for everything!
Leesha

.Body = Me.Comment & vbCrLf & vbCrLf & vbCrLf & vbCrLf & Me.ClosingStatement & vbCrLf & vbCrLf & Me.FirstName

Post by **HansV** » 18 Apr 2022, 06:33

The .Body property is plain text.
If you want formatted text you can either use the .HTMLBody property or use Word to format the text.
The HTMLBody property requires HTML markup code:

.HTMLBody = "<body>" & Me.Comment & " " & Me.ClosingStatement & " " & Me.FirstName & "</body>"

Leesha · Post by **Leesha** » 18 Apr 2022, 10:57

Hi Hans!
Thanks so much for the sample code. If I wanted only me.firstname to be in the Segoe Sript and the rest of the .Body to be in plain text is that possible and if so what would it look like?
Thanks!

Post by **HansV** » 18 Apr 2022, 11:08

Try

.HTMLBody = "<body>" & Me.Comment & " " & Me.ClosingStatement & " " & Me.FirstName & "</body>"

Leesha · Post by **Leesha** » 19 Apr 2022, 00:06

Hi Hans,
It does the same thing as the original one. It's OK. I am thrilled with what the original code. The user asked if there was any way to change the font for the first name but I'm sure they will live with it the way it is.
Thanks!
Leesha

Leesha · Post by **Leesha** » 31 May 2022, 03:59

Not to worry Hans, this is all working beautifully! My question is ............. is there a way to specify which email address it is coming from. One of the end users has a variety of email addresses based on the job she is performing. Right now the email goes out from her default email address. He wants to know if there is a way to pick a different email address within Access vs having to go to Outlook and change the default each time.
Thanks,
Leesha

Post by **StuartR** » 31 May 2022, 06:54

Try adding
.SendUsingAccount = "account name"
To the code that creates the email
(replace account name with the full name of the account you want to use)

Leesha · Post by **Leesha** » 31 May 2022, 11:07

Hi Stuart,
I tried the code but it still shows as coming from my default email in Outlook. I wasn't sure where to insert the code so put it after . body. Should it be elsewhere?
Thanks,
Leesha

Post by **HansV** » 31 May 2022, 11:29

It should be before the line that displays or sends the message. Below the line that sets the body is fine. Try this:

Code: Select all

            .SendUsingAccount = outApp.GetNameSpace("MAPI").Accounts("email address")

substituting the desired email address.

Leesha · Post by **Leesha** » 31 May 2022, 11:38

I get an error that says wrong number of arguments or invalid property assignment.

Post by **HansV** » 31 May 2022, 13:40

Start Outlook and activate the Visual Basic Editor.
Select Insert > Module, then copy/paste the following code:

Code: Select all

Sub List()
    Dim a As Account
    For Each a In Session.Accounts
        Debug.Print a.UserName
    Next a
End Sub

You should see the names of all your email accounts in the Ommediate window. Did you use one of those?

(You don't need to save changes to the VBA project in Outlook.

Eileen's Lounge

Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments

Re: Email with Attachments