Search results

Private Sub ClientStatus_Change() If Not Me.ClientStatus.Value = "NPW - No Contact" Or Me.ClientStatus.Value = "NPW - Gone Elsewhere" Then Exit Sub Else If Me.ClientStatus.Value = "NPW - No Contact" Or Me.ClientStatus.Value = "NPW - Gone Elsewhere" Then If MsgBox("Would you...

Thanks guys but it must be me and VBA it doesnt work :-( Proceeding message box still displays with "NPW - No Contact" however nothing happens when selecting "NPW - Gone Elsewhere" Any ideas?

Hello, Hopefully a simple one! How do I make this work please?: If Me.ClientStatus.Value = "NPW - No Contact" Or "NPW - Gone Elsewhere" Then

Okay so I figured it out. One of the file names had an "," between two words. I have removed this from the file and amended the stored file name in the table and he presto the code works, email template opens with all place holders present and attachments added 👍 Thank you @theDBguy for all...

So done as per post #20 and result as per screenshot. As per my last post if I hover over strPaths(x) it displays one of the file names without file extension. At this point how does the code know what directory to look in as we haven't defined it?

No?

Getting the attached response. I will say that when I hover over & strPaths(x) It does now display one of the file names but WITHOUT the file extension?!

Done, back to the original problem please see screenshot

Please dont judge me 😂😊 I'm not a coder!!! Private Sub Command10_Click() Dim appOutlook As Outlook.Application Dim MailOutlook As Outlook.MailItem Dim strSQL As String Dim clientRST As Variant Dim salesRST As Variant Dim strTable As String Dim i As Variant Dim strPaths As Variant strSQL...

Okay well at least that's something! So done as above and now the compile error is ByRef argument type mismatch

Okay so was declaring strPaths as String now changed to Variant?, and getting this message in the Immediate window: SELECT [FileName] FROM ContactProofT WHERE CustomerID = 4 That is the correct CustomerID for this example. Should I expect to see the file names rather than the above?

Tried that, nothing in the immediate window and brings me back to the same compile error type mismatch! :-(

Hi @theDBguy So I've got this so far strSQL = "SELECT [FileName] FROM ContactProofT" _ & " WHERE CustomerID = " & Forms!SubmitRefundF!CustomerID strPaths = Split(SimpleCSV(strSQL), ",") And trying to pass into outlook like so: .Attachments.Add Application.CurrentProject.Path &...

Removed this and seems to have done the trick 👍 & salesRST.Fields(i).Name Thanks for all your help @CJ_London

Okay so I changed the template slightly to all simple lowercase words for the place holders as follows: .HTMLBody = Replace(.HTMLBody, "%date%", clientRST![Lead_Date]) .HTMLBody = Replace(.HTMLBody, "%first%", clientRST![Client_FN]) .HTMLBody = Replace(.HTMLBody, "%surname%"...

Okay so now code running without any errors. I've added option explicit and had to define a few more objects. Some of the info is pulling into the template and some is not. Here is the code so far: Private Sub Command10_Click() Dim appOutlook As Outlook.Application Dim MailOutlook As...

Think I'll have to take that one on the chin seeing as your absolutely correct 😁 I haven't changed that bit but will do when back in front of pc and let you know how I get on. Thanks for your help on this really do appreciate it 👍

No they are not but I did clock that last night and changed them to NoteDate & Note. Now getting a different error! Is it always this frustrating? 🤣. Error now is 'item not found in this collection' highlighting this line: StrTable = StrTable & "<TD> & salesRST.Fields(I - 0).Name & "</td≥"

This is where I am at so far: Private Sub Command10_Click() Dim appOutlook As Outlook.Application Dim MailOutlook As Outlook.MailItem Dim strSQL As String strSQL = "SELECT [CustomerID], [Lead_Date], [Client_FN], [Client_SN], [Mobile_No], [Email_Address], [Phone_Call_#1], [Phone_Call_#2]...

@theDBguy thank you for taking the time to do this but I haven't a clue where this piece of code should be going and what with. As I say in the original post really need help with the entire thing 👍