Search results for query: *

thanks Remou, when i read GingerR' and since it worked I did not read further. The last code you sent me shows an error "File has been deleted or moved", send to only one, and this line is highlighted: .To = rs!Email GingerR works except that it include all clients addresses.

I am back again. I have a small change to make. When I send the email it shows everyone address on TO: I was asked to modify the code to hide all the addresses from the TO. is it possible? the person who recieve the email will see: From: Istone@Y.com To: CC: Subject: Happy Holidays...

GingerR, you did it. It works. Thank you so much. And I also want to thank everyone else that took the time to help me. Happy holidays

this line: .To = rs!Email

Remou thanks so much for staying with me on this issue... here is the code minus the last if statement you suggested: Private Sub Command0_Click() Dim db As Database Dim rs As DAO.Recordset 'Dont't forget to reference the Outlook Object Library Dim objOutlook As Outlook.Application Dim...

When I remove the error handler, I get a message saying: the file has been removed or deleted. The email is sent but to only one person. strange..

thank you

The word end is the one that appears when there is an error message. When an error message comes up it shows 2 buttons one says: end and the other say debug. I click on end to stop the error. The .To = rs!Email refers to the field in the table. This field has all the email we want to send...

I am not sure I am following you. I have a table with 206 emails.

Private Sub Command0_Click() Dim db As Database Dim rs As DAO.Recordset 'Dont't forget to reference the Outlook Object Library Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem Set objOutlook = CreateObject("Outlook.application") Set objEmail =...

I get an error message: Run-time error'-6603....' the item has been moved or deleted and this line is highlighted: .To = rs!Email and then I click end and the email is sent but to only one person the first on the table list Thanks

The attachment is working now. The only issue is: It only send to one person, the first on the table, it doesn't loop..How do i fix that? thanks

Good news I put this: Dim rs As DAO.Recordset and now I have a message: run-time error'-166...can't find this file. Make sure the path and file name are correct I have to figure out why the attachment is not working.

thanks remou for your help. The same error message: run-time error'13' Type mismatch and this line is highlighted: Set rs = db.OpenRecordset("SELECT Email FROM Table1")

Private Sub Command1_Click() Dim email As String Dim ref As String Dim origin As String Dim destination As String Dim notes As String Dim objOutlook As Outlook.Application Dim objEmail As Outlook.MailItem email = Me!email Set objOutlook = CreateObject("Outlook.application") Set objEmail =...

Remou, It did not work for me. I have a table like this: Client ContactName Email ABC ABC Name ABC@yahoo.com CDC CDC Name CDC@yahoo.com MNB MNB Name MNB Name I am trying to send an email and attach a card (jpg file) to the above clients using the...

can't find DAO.Database

thanks Yes I have reference to DAO3.6 Object lirary. Now I am getting this error: run-time error'424' Object Required and this line is highlighed: .To = rs!Email Email is the name of the field where the email address is stored.

2003

correction: this line should say: .To = rs!email