Greetings,

we have a user that has access to multiple shared email accounts (ie consumersupport@joes.com, consumersupport@myclub.com,shop@jerrysfun.com)

we are setting up replies to an email but need to set the recipient (  onsumersupport@joes.com, etc) as the sender based on the incoming email WITHOUT having to hardcode an address.

Here is the code we have that is working but uses the users default email address as the sender:

Sub Reply_Scripting()
Dim origEmail As MailItem
Dim replyEmail As MailItem
Set origEmail = Application.ActiveWindow.Selection.Item(1)
Set replyEmail = Application.CreateItemFromTemplate("\\cgtxstorage\company\Sales & Customer Service\Russ Email Templates\AAA OGIO 20Off Apperal Resp.oft")
replyEmail.Subject = origEmail.Subject
replyEmail.To = origEmail.SenderEmailAddress
Rem replyEmail.To = origEmail.To
replyEmail.CC = origEmail.CC
replyEmail.HTMLBody = replyEmail.HTMLBody & origEmail.Reply.HTMLBody
replyEmail.Display
End Sub

Select all Open in new window

I appreciate any and all suggestions,

Eugene

Is there a way Ms Access can capture data through scan, for example if an invoice is coded expense then in the field for cost type it should write an expense.
I think there is an opportunity to do away with routine bookkeeping by using VBA code as long as MS access can read the scan, I can for see non-accountants doing complete booking keeping & consolidation of accounting statements on their own without knowing what is in the background. I think the only cost here is buying a scanner.

Regards

Chris

I am looking at an existing Access 2013 application.  One of the process is running very slowly and I am looking for improvements.

This logic uses payment records and install plan records.

A query “qryPayments_Hdr_MatchAgainst_ActiveInstallPlans"   already exists that matches payment records to install plans.  The returns returns three fields
1. 'ID', which is the unique primary key for a payment record,
2. 'PaymentInstallPLanID' which is an alias for field 'InstallPlanID' in the payment record which is the field that should be stamped with the matching InstallPLanID and
3. 'InstallPLanID' which is the unique primary key for each install plan record.


Currently there is a logic loop that reads each line in the query one by one.  
Then, using the 'ID', it reads each payment record, updates the payment record with the InstallPlanID
and loops thru until all of the payment records have been stamped with the appropriate InstallPlanID.

There are over 100k payments so this takes a while.

I am thinking there must be a way to create an update query that will handle all of this without any coding whatsoever and probably execute more quickly than this step by step approach.

The two fields named INstallPLanID, one in the payment record and one in the INstallPlan record are confusing me when it comes time to write an update query.

I came up with this but when I run it I get an error "Operation must use an updateable query"

UPDATE …

Hi every one,
I have this code below is working fine for backing up the file to a new file name
is it possible to make it only backing up only All tables to the new file name.

Function BackupSource()
    DoCmd.Hourglass True
    On Error GoTo Errorhandler
Dim strBu As String
   Dim buf As String
      Dim MD_Date As Variant
         Dim fs As Object
            Dim strSourceName As String
               Dim strSourceFile As String
                  Const conPATH_FILE_ACCESS_ERROR = 75

strSourceName = CurrentProject.Name
strSourceFile = CurrentProject.Path
buf = "C:\WinRef\"

   If GetAttr(buf) <> vbDirectory Then
   MkDir buf
   End If
   
MD_Date = "HCS" & Format(Date, "yyyy-mm-dd-") & Format(Time, "hh-mm-ss")
strSourceFile = CurrentProject.Path

strBu = "C:\WinRef\" & MD_Date & "\"
    MkDir (strBu)
         
            Set fs = CreateObject("Scripting.FileSystemObject")
               fs.CopyFile strSourceFile & "\" & strSourceName, strBu
            Set fs = Nothing

DoCmd.Hourglass False
    Exit Function
   
Errorhandler:
    DoCmd.Hourglass False
    DoCmd.OpenForm "MsgE_BkUpPc"
End Function

I have the following code to import outlook emails from a specified folder (inbox) into a access table. However, I only want to include todays or the last x days in the import (to speed up the import). Is there a simple way to only include for example todays emails?

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("PMSImport")
   
'Set up Outlook objects.
 Dim cMail As Outlook.MailItem
 Dim cAtch As Outlook.Attachments
   
'Write Outlook mail properties to Access "Email" table.
iNumMessages = objProp.Count
If iNumMessages <> 0 Then
        For I = 1 To iNumMessages
            If TypeName(objProp(I)) = "MailItem" Then
                Set cMail = objProp(I)
                    If Fix(cMail.SentOn) > Fix(Now()) - 2 Then
                       rst.AddNew
                       rst!EntryID = cMail.EntryID
                       rst!ConversationID = cMail.ConversationID
                       rst!Sender = cMail.Sender
                      rst.Update
                  End If
            End If
        Next I
    End If

Using Access 2003 and I have the following command: DoCmd.OutputTo acOutputReport, RptName, "SnapshotFormat(*.snp)", strPathandFileName

The report it changes to a snapshot format uses arguments to format the report, is it possible to pass arguments with this type of command?

I am using windows 10 and ms access 2016 64bit. I need a working version of how to add an icon to the system tray.I have tried numerous versions without success.
Thanks

Hello,

I just created a tool/calculator for my wife to use at work. I used VBA and Userform in Excel (input text boxes and sliders, and then several outputs). Once I got it working, she informed me it would really only be useful if she can access/run this calculator on her iPhone or iPad on the go. Is there any way to do this?

Thanks!

In my query I have this:


Which results in this:


Obviously not correct. How to fix?

Hello,

I am trying to figure out a way to come up with a helper column. I need to show all dates that are 4 weeks old and 13 weeks old based on today's date now((). also, please note that Sunday is the beginning of the week and Saturday is the end of the week

your help is greatly appreciated ..

An expert helped me out yesterday with this question:

"How autonumber field in subform section of a form"

But I just ran into a problem.  If the user entered 6 digits in the first field and then for example 9 in the 2nd field, I get an overflow error when I click [Proceed].  If the user enters anything less than 6 digits in the first field it worked fine.

Here is my current code: (Note I commented one line out because I was getting 1 more record than requested.

Private Sub cmdProceed_Click()

    Dim intLoop As Integer
    Dim db As dao.Database
    Dim rs As dao.Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tblLoadsDetail")

'    For intLoop = Nz(Me.txtStartingN, 1) To Nz(Me.txtStartingN, 1) + Nz(Me.txtRecordCount, 0)
    For intLoop = Nz(Me.txtStartingN, 1) To Nz(Me.txtStartingN, 1) + Nz(Me.txtRecordCount - 1, 0)
        rs.AddNew
        rs!LoadRecordID = Forms!frmLoadsHeader.txtLoadRecordID
        rs!LoadID = intLoop
        rs.Update
    Next

    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    DoCmd.Close , ""
    
    Forms!frmLoadsHeader.Refresh
    Forms!frmLoadsHeader.cmdFocus.SetFocus
    Forms!frmLoadsHeader.cmdAutoNumberDetailLoadIDRecords.Visible = False

End Sub

Select all Open in new window

Sorry to bother you again

I want to prevent captured data from be truncation in Ms Access due to  text control width. For example :

(1) When I enter data in a narrow width text control , once it reaches the end of control it should stop accepting further entry. Example if the text control Employee Name  require  ( John Peter Andrew) to be entered, but due to its width lets say it can only accommodate (John Peter) the remaining part should be rejected due to width, that will be better , I have noticed some fan truncation on the reports . I want to prevent this once and for all

Regards

Chris