Search results for query: *

Hurray, Adding the .value seems to have worked! Thank you both for your help Stars for you!

By running the following code: Private Sub Command22_Click() Dim otk As Outlook.Application Dim eml As Outlook.MailItem Dim rs As ADODB.Recordset Dim myAttachments As Outlook.Attachments Set otk = CreateObject("Outlook.Application") ' Open your table and build your distribution list...

PHV Yes I can add attachments manually The following hard coded version executes fine. But when I refer to the same information from the table it doesn't work. Private Sub Command22_Click() Dim otk As Outlook.Application Dim eml As Outlook.MailItem Dim rs As ADODB.Recordset Dim...

PHV The error occured at this line: myAttachments.Add .Fields("Attachment"), 1, "Test"

PHV I ran your modification and recieved the "438" error Any ideas?

The field contains a string that is the full path and file name. it is found in the same table "studentdata1" that the other fields (Email,subject, and body) are found in. What I don't understand is why the other fields work flawlessly if I rem this line. Yet with this line in it hangs. I...

The error now is: Run time error "438" Object doesn't support this property or method

I made the correct change this time and this is the result I recieved: Run time error "436" Object doesn't support this property or method In the debugger the entire line is highlighted. I appreciate your help on this.

I made the change you recommented and this is the result. eml.attachments.Add.fields("attachment") Compile error: Argument not optional

I have built this routine and everything works except for the attachment. Any suggestions? Private Sub Command22_Click() Dim otk As Outlook.Application Dim eml As Outlook.MailItem Dim rs As ADODB.Recordset ' Open your table and build your distribution list Set rs =...

Newbie here When I post the following code I get an error "Compile error User defined type not defined" with the first dim statement highlighted. What am I doing wrong? Public Sub Command0_Click() Dim otk As Outlook.Application Dim eml As Outlook.MailItem Dim rs As Recordset...