Search results

Mike, While you were working on this, I decided to mess around with it a little. I took out the space after the semicolon in your SendObject line. Guess what! It worked! I have no idea how, but I'm not complaining! Thank you so much for all of your help! I appreciate it! Becca

My last message is actually incorrect. I tested my theory with some members of my current address book and it is giving me the same error. I am going to keep trying and I'll let you know what I discover.

Mike, It looks like this should work, however, do you know if I should have to enter all of the addresses into my Outlook Express address book or if I can just keep them in Access. I am getting a runtime error when I execute indicating Unknown Recipient. Thanks for all of your help so far!

I am adding the attachment manually because it is outside of my database. I actually am using blind copy in the code. Below is the line DoCmd.SendObject acSendNoObject, , , RstTmp.Fields![emailaddress].Value, , , , , True This line sends each email address a message separately, what I want...

I am trying to send a global e-mail via a module. I can get it to send with a Loop, however I have an attachment that I want to send to my entire e-mail listing (of members, this is NOT spam! I just don't want the rest of the folks to have to scroll through a bunch of e-mail addresses). If I...

I posted a couple of days ago on the Type Mismatch error. I am getting the same error in almost every function I write using SET. Does anyone have any ideas? My function is below. Option Compare Database Option Explicit Dim db As Database Dim RstTmp As Recordset Dim Loop1 As Variant Dim...

Thanks for responding! I think this is what you are talking about. Public Function RandomValue() As Integer Dim RndRecord As Integer Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("tableteams") RndRecord = Int((rst.RecordCount * Rnd) + 1) rst.Move RndRecord RandomValue =...

Thank you for responding! You were right, my field is a Long Integer, I changed my code to the following Option Compare Database Option Explicit Public Function RandomValue() As Long Dim RndRecord As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("tableteams") RndRecord =...

I am getting a type mismatch (Error 13) due to the following funciton. Can anyone enlighten me? Thanks in advance! Public Function RandomValue() As Integer Dim RndRecord As String Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("tableteams") RndRecord = Int((rst.RecordCount * Rnd) + 1)...