Recent content by FAB1

i believe the scheme is no longer working

Hi @Gasman thank you for your reply apologies i had missed your earlier reply. Adding the .Address has worked. Grr annoyingly i was close before. Thanks again for your help(y)

Hi @Isaac thankyou for replying. We don`t us Exchange server just Pop accounts. I cant see .Address in the .Recipients collection. I did try it Msg.Recipients.Address but it returned blank results. Any other ideas?

Hi @bastanu thank you for replying i had looked at https://docs.microsoft.com/en-us/office/vba/api/outlook.recipients and tried Msg.Recipients but the results where blank i had also tried Msg.Recipients.item(1) but again some times it was full address sum times Screen name. When i looked at the...

Re:Outlook2016 Hi All, In my last post I ended up with code that has been the base for my email import routine. https://www.access-programmers.co.uk/forums/threads/outlook-vba-cant-figure-out-what-im-doing-wrong.313848/ When I started on phase 2 I have now realized that the outlooks MailItem.To...

Thanks @Isaac & @namliam for the push in the right direction. I also tied it in with code from Diane Poremsky https://forums.slipstick.com which if added to the “ThisOultlookSession” followed by a 1 time outlook close then open again will start adding new received emails to the accdb. Thanks...

Hi All, I had been playing about with some code in Outlook to export emails details to Access. For testing I had changed the code to export from a sub folder with a small sample set of emails that worked no problems. But when I changed it to work on the Inbox it fails after exporting about a...

I only require the matched values to populate the unbound fields. I presume your now talking about “2.If no match is found I would like to know the location to put this code to start a new Booking Record in the frmBooking” Would it not just be the fact because it didn’t find a match its...

I appreciate the file with the extra capacity of adding the results to tblMatches I would like to be able to 1.Populate the unbound fields on the frm with the matched results from the tblbooking. Where would I put this code and is the = control source syntax correct eg rs1!BookingRef...

Apologies everybody I'm getting to the confused stage. You have all been so helpful but I have gotten to the stage that I'm not keeping up with what’s going on. Its been years since my last post and I can’t remember having so many people trying to help before. Sorry jdraw I didn’t mean to...

Hi again jdraw, Ok still trying to get my head around what you’ve done for me. When I am home tonight updating my DB with your code, can I check where I should put the found results in the frm Me.txtMatchedBookingRef = rs1.BookingRef Me.txtMatchedBookingID = rs1!BookingID Me.txtMatchedFolioID =...

Ok, Sorry i am really in over my head hear i thought that was what the code was already doing? strBookingIDQry = "SELECT DISTINCT tblBookings.BookingID, tblBookings.FolioID, tblBookings.SupplierID " & _ "FROM tblbookings " & _ "WHERE...

Me again....Code worked on Record 1 & 2 as expected but Record 3 & 4 failed. I presume because the [BookingRef] is not just numbers. Any ideas? Code as 03:10 AM post For a = 0 To UBound(aInput) If isnumeric(aInput(a) then strWord = aInput(a) Exit for End if Next a

Hi pbaldy, thanks for picking up my post. compile errors fixed. Yes please. I get the result MsgBox "No Match" Option Compare Database Option Explicit Private Sub cmdBTSearch_Click() Dim db As DAO.Database 'Dim db As Database Dim rsFindBookingID As DAO.Recordset Dim aInput() As String...

Hi jdraw, Thanks for picking up my post. I've attached the accdb also you'll see the Expected results field which i added to show what the code should find.