So, first, we need to establish the variable that is going to hold the RECIPIENT object we added to the message. Add this piece of code that DIMs the Recipient object where we DIM our other variables:

Dim MyRecip as Outlook.Recipient

Then, inside the loop, instead of using

MyMail.Recipients.Add MailList(“email”)

Use:

Set MyRecip = MyMail.Recipients.Add(maillist(“email”))
MyRecip.Type = olBCC ‘ sets the latest recipient as BCC

At the end, for good measure, we should clean up after ourselves:

Set MyRecip = Nothing

Do Until MailList.EOF

‘ This adds the address to the list of recipients
MyMail.Recipients.Add MailList(“email”)

‘And on to the next one…

MailList.MoveNext

Loop

This defaults to putting the addresses in the To line, how can I put them in the BCC line?

Thanks,
Mike

Outlook only puts the signature into a blank message.

However, the signature is just a text (or HTML) file, but you have to find it. It’s fairly well hidden in the registry, in binary fields to boot, but here’s a decent solution that seems to work.

http://www.rondebruin.nl/mail/folder3/signature.htm

Great site – exactly what I needed.

One quick request – I changed the code some to either pre-populate text into the email body or leave it blank for the user to edit themselves when the email is displayed depending on different conditions.

When I don’t pre-populate the text, the email is displayed and the email body only contains the user’s default Outlook email signature. I would like to include their default Outlook email signature at the end of the pre-populated text as well.

How can this be accomplished?

Thanks,
Dan

http://www.mapilab.com/outlook/security/

The code is in there, it is just commented out. Move the apostrophe from the .Display line to the .Send line and you’ll get your 240 open messages – assuming Windows’ GDI layer doesn’t crap out first.

I just finished pasting 240 separate emails into 240 Outlook email messages (I created these 240 blank email messages by creating one master message, saving it as a DRAFT, and then copying it to get 240 messages). Then I googled & found your site ;-(

I would like to know if there is a way to use code to create the 240 copies and populate the TO: email address, leaving me with the task of only pushing the SEND button for each of the messages that is open. I think that this would be faster than using code to press the SEND button as there is no built-in 305 second security delay to wait upon.

TIA!

Joe
Northville, MI

Outlook 2007 adds a MailItem.SendUsingAccount property, and in 2003 you can use some semi-ugly hack/kludge to do the job providing you meet some criteria (not using Word as your editor, etc.)

You can find that code here — I’ve not tried or tested it, nor do I have any idea how to integrate into my routines:

http://www.outlookcode.com/codedetail.aspx?id=889

Jeff

Great site and I have been looking at your email code. I thought this was a perennial problem, but nobody has asked you yet so here goes:
Can I use this code (or any) to change the ‘From’ address.

I send an email to the buyer of my products, and a similar email to the despatcher telling them what to send.

I want one to have my professional shop address, and one to have my ‘phil’ address.

Thanks,
Phil

Depending on how you have your query set up, you can use a second query master loop to test populate the delinquent timesheet info.

For instance, say your query returns SupervisorID, EmployeeID, TimecardID (and whatever related info to that) I would say make sure you’re sorting on SupervisorID and EmployeeID, so all your EmployeeIDs are grouped together. The result might be something like this:

1, 2, 3
1, 2, 4
2, 3, 5
2, 4, 6

etc.

How things are now, Supervisor 1 is getting two emails about Employee 2 — one for Timesheet 3 and one for Timesheet 4.

Instead of running multiplie loops (which is a fine way of doing it, but introduces pitfalls pertaining to do what to do when the recordset ends, how to keep track of where you are in the recordset, etc.), I would run a 2nd query.

So, add this code (the query obviously needs to be changed to suit your particular needs):

‘ – - – Begin Code – - –

MyBodyText = “Here are the delinquent timesheets for Employee ” & MyMail(“EmployeeID”)

Dim MyQuery2 as Recordset
Dim MyBodyText2 as String

Set MyQuery2 = Currentdb.openrecordset(“Select TimesheetID, TimesheetInfo from DelinquentTimesheetTable where SupervisorID = ” & MyMail.SupervisorID & ” and EmployeeID = ” & MyMail.EmployeeID)

Do until MyQuery2.EOF

MyBodyText2 = MyQuery2(“TimesheetInfo”) & vbnewline

MyQuery2.movenext

Loop

MyBodyText = MyBodyText & vbnewline & MyBodyText2

‘ – - – End Code – - –

So that runs a second query to get the timesheet info, cycles thru it, and appends the info to mybodytext2. When that’s done, it appends MyBodyText2 to your initial MyBodyText and then you can continue running the code as usual.

Hope this helps.