Ich hab im Forum folgendes MAkro gefunden
Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Mail(EMAIL As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + EMAIL + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Sub MailVersenden()
Dim EMAIL As String, Subject As String, Body As String
EMAIL = "max@web.de"
Subject = "Nachricht von Provisionsabrechnung"
'
' Vielleicht steht der Text ja schon fest, dann die
' folgenden Zeilen benutzen.
'
Body = "Benutzer: " & Application.UserName & "hat am" & " " & Now & " " & " " & "die Datei" & " " & ThisWorkbook.Name & " " & "zum" & " " & Range("Counter").Value & " " & "mal" & " " & "geöffnet"
Call Mail(EMAIL, Subject, Body)
'
' Mit Mailprogramm-Aufruf sieht das so aus
'
'Call Mail(EMAIL, Subject)
End Sub
Wie bekomm ich es hin, dass die Mail automatisch ohne ein öffnen gesendet wird, der Benutzer soll (fast) nicht merken, dass die Mail gestartet wurde.
Danke Euch schonmal
Steffen