Arbeitsmappe per Mail versenden
massimo17
ich möchte eine Arbeitsmappe per Mail versenden.
Folgendes Vorgehen ist geplant:
1. Der User erhält einen Fragebogen in EXCEL-Format zum ausfüllen
2. Nach erfolgreichem ausfüllen, soll er auf einen Knopf drücken der die ausgefüllte Mappe versendet
Bei mir tritt das Problem auf, dass die Mappe vorher erst gespeichert sein muss, damit die neuen Inhalte (also die wichtigen Abfragen) mitgeschickt werden. Wie kann ich dies umgehen?
Mein bisheriger Code:
Private Sub CommandButton1_Click()
Dim objOL As Object
Dim objMail As Object
Dim Bezeichnung As String
Dim MAdr As String
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(0)
Bezeichnung = ActiveWorkbook.Name
MAdr = "XXX@XXX.de"
Application.ScreenUpdating = False
With objMail
.To = MAdr
.Subject = Bezeichnung
.Body = "PJler Evaluation"
.Attachments.Add ActiveWorkbook.FullName
.Send ' Display für Indirektversand oder .Send für Direktversand
End With
MsgBox ("Tabelle wurde erfolgreich versendet.")
Application.Goto Sheets("Fragebogen").Range("A1")
Application.ScreenUpdating = True
End Sub
Anzeige