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...
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...
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...
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
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...
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.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.