Get IP or Mac Address from email Sender (1 Viewer)

Hi,
I have an access form form for sending emails within ms Access Application.
My problem now, Is there any way I can get the Mac Address from the very system used in sending and forward same to the email recipient secretly?

Any suggestion is welcome
Thanks for your quick response

Maybe you could use the Shell function to run ipconfig /all and parse the MAC address out of the result.

Would you share with us what you want to do with it?

Check this link for info on MACAddress

@jdraw

Thanks for pointing us to the post. I've haven't been able to get the GetMac function to produce a MAC address on my Windows 7 system but I'm getting info from the CIMV2 class Ok. I don't need that so I just wanted to say that as can be seen here the CIMV2 class could be useful for a lot of things.

Hi

On testing, I found the GetMac function results in this thread https://access-programmers.co.uk/forums/showthread.php?t=243000were not consistent with those available in Windows settings

However this site: http://www.myengineeringworld.net/2014/12/get-public-ip-local-ip-mac-address-vba.html had a similar function GetMyMacAddress which did give the correct results.

The same page also has VBA code to get both your local and public IP addresses

ridders said:

However this site: http://www.myengineeringworld.net/2014/12/get-public-ip-local-ip-mac-address-vba.html had a similar function GetMyMacAddress which did give the correct results.
[/B]

Click to expand...

Thanks. That worked on my Window 7 system.

Thank you all for the quick and resourceful info.
But my puzzle now is how do I include the Mac address on my email form so that when a mail is sent, it will copy the Mac address of the current machine and send at the same time.
Here's my email sending code:
Private Sub cmdSend_Click()
On Error Resume Next

Dim oApp As Object
Dim oEmail As Object
Dim FSO As New FileSystemObject
Dim FolderPath As String
Dim FileName As String


Set oApp = CreateObject("Outlook.Application")
Set oEmail = oApp.CreateItem(0)

oEmail.To = Nz(Me.txtTo.Value, "")
oEmail.Subject = Nz(Me.txtSubjet.Value, "")
oEmail.Body = Nz(Me.txtBody.Value, "")

If FSO.FileExists(Nz(Me.txtAttachment.Value, "")) Then
FolderPath = CurrentProject.Path & "\Attachments"
If Not FSO.FolderExists(FolderPath) Then
FSO.CreateFolder FolderPath
End If
FSO.CopyFile Me.txtAttachment.Value, FolderPath & "", True
FileName = FSO.GetFileName(Me.txtAttachment.Value)

oEmail.Attachments.Add FolderPath & "" & FileName
End If

' If Len(Me.txtAttachment) > 0 Then
' oEmail.Attachments.Add Me.txtAttachment.Value
' End If

With oEmail
If Not IsNull(.To) And Not IsNull(.Subject) And Not IsNull(.Body) Then
.Send

Logging.WriteLog "Email Sent=To: " & Nz(Me.txtTo, "") _
& " Subject: " & Nz(Me.txtSubjet, "") _
& " Body: " & Nz(Me.txtBody, "") _
& " Attachment: " & Nz(Me.txtAttachment, "")

MsgBox "Email Sent!"
Else
MsgBox "Please Fill Out the Required Fields"
End If
End With

End Sub
Please help me to include the GetMacAddress() on where it's appropriate in this code above.
Regards,

Moore71

It depends whether you want it to go in the subject line or the message body.

Choose ONE of these:


OR


assuming you use the GetMacAddress function I referenced - otherwise GetMac()

I think Colin meant:


OR


if you are using the following function:

Oops. Thanks Steve for spotting my error.

Helps if I read my own post before re-posting!

Thanks for the help.
But how I really want it is to automatically add the Mac Address without the knowledge of the sender.
So is there anyway the Mac address can be hidden such that the receiver only need to see the source Mac address

Thanks, once again

Just curious-- can you tell us why you want this --other than an academic interest?

I have an email solution, where I want anytime emails are forwarded to me, I should get the Mac Address of the local machine for my personal consumption

Moore71 said:

Thanks for the help.
But how I really want it is to automatically add the Mac Address without the knowledge of the sender.
So is there anyway the Mac address can be hidden such that the receiver only need to see the source Mac address

Thanks, once again

Click to expand...

Colin's suggestion concatenates the MAX address to the oEmail object; not into the form field. Why and how do you think the sender would see it this way?

Moore71 said:

I have an email solution, where I want anytime emails are forwarded to me, I should get the Mac Address of the local machine for my personal consumption

Click to expand...

How do you consume a MAC address?

It's a big Mac eaten with french fries

A serious response this time.

I am slightly bothered by the idea of what you are asking to do and I very much doubt those emailing you would be happy if they knew about it.

However as Steve has already said, my suggestion would do what you want.
Another way is to create an additional email which would be sent 'silently' by the Access database without opening Outlook and without leaving a record in the users' email folder.

This is easy enough to do if you send email using CDO

I do this for other purposes with my clients.
For example to send me an automated email when:
- program errors occur
- the client updates the location of BE files (as I need to include that in program updates)
etc