E-Mail Ausgabe an Win Nutzer
05.03.2020 08:15:49
Bene
Kurze Frage, sollte den Profis hier nicht allzu schwer fallen nehme ich an aber Ich habe weder eine Lösung noch einen endsprechenden Blockeintrag hier zu meinem Problem gefunden.
Ich möchte per Schaltfläche mein Dokument als E-Mail versenden, ich habe bereits mit der
=DATEI.ZUORDNEN(36)
Funktion eine Zelle generiert die beim Öffnen des Dokuments über =Benutzer immer den Windows Namen des aktuellen Benutzers des Dokuments ausgibt (die Datei ist im SharePoint hinterlegt und kann von vielen Mitarbeitern im Konzern benutzt werden. Ich habe sogar schon einen Code gefunden der ungefähr das leistet was ich möchte:
Sub Mappe_versenden_als_EMail()
' Verweis auf Microsoft Outlook Bibliothek setzen
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String ' 1) oder As Range
Dim MAdr As String ' 2) oder As Range
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
'Set Bezeichnung = [Tabelle1!G27] ' 1)
Bezeichnung = ActiveWorkbook.Name
'Set MAdr = [Tabelle1!A2] ' 2)
MAdr = "Benutzer@meineFirma.com"
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = Bezeichnung
.Body = "Hallo Kollege"
.Attachments.Add ActiveWorkbook.FullName
.Display ' Display für Indirektversand oder .Send für Direktversand
End With
' Meldung:
MsgBox ("Tabelle wurde erfolgreich versendet.")
Application.Goto Sheets("Tabelle1").Range("A1")
Application.ScreenUpdating = True
End Sub
So dass dieser sich immer einen Anhang der Datei die er gerade generiert hat selbst als E-Mail sendet?!
Vielen Dank für eure Hilfe
MfG
Bene