email notification sent from specific email

[Babynod]

HI All

my existing login register is working perfectly thanks to all the help of people on this forum. now though i have a new email setup specificly to send the email notifications from as i now have multiple registers running

my current code is

Private Sub cmdEdit_Click()

    Dim xOutApp     As Object
    Dim xOutMail    As Object
    Dim msgvalue    As VbMsgBoxResult

    On Error GoTo myerror

    msgvalue = MsgBox("Do you want To save the data?", vbYesNo + vbInformation, "confirmation")

    If msgvalue = vbNo Then Exit Sub

    If ValidateEmptyEntries() = True Then
        Call Edit
        Call reset
    Else
        Err.Raise 600, , "duplicate validation failed or empty field must be filled"
    End If
    
     cmdEdit.Enabled = False
     cmdSubmit.Enabled = True
     txtUser.Enabled = True

    'email notification

    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)

    With xOutMail
        .To = "MarkP@example.com.au"
        .CC = ""
        .BCC = ""
        .Subject = "WMS LOGIN REGISTER"
        .Body = "Account Update Requested By " & (Application.UserName)
        .Send
    End With

myerror:
    Set xOutMail = Nothing
    Set xOutApp = Nothing

End Sub

which part would i have to edit to add in the new FROM email? as its no longer going to be my default email address? LoginRegisters@example.com.au

 

[JeffGrant]

Thank you Babynod,

I was just about to start looking for something like this.

 

[Babynod]

Thank you Babynod,

I was just about to start looking for something like this.

you got my hopes up thinking someone had a solution already =D

 

[Babynod]

can anyone help me with this one please?

 

[Babynod]

is anyone able to help with this one please?

 

[JeffGrant]

Sorry Babynod. I am not as experienced as many of the folk on tis messageboard.