Arbeitsmappe mit vba in Outlook verschicken

[zer0core]

Hallo Leute,

ich habe eine Arbeitsmappe, die ich gern mit einem Makro als Anhang verschicken möchte.
Es funktioniert soweit, bloß wenn ich Änderungen vornehme und das Makro ausführe, sendet er mir immer nur die Arbeitsmappe ohne Änderungen.

Hier einmal der Code:

Sub Send_Email_Current_Workbook()

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.GetInspector
.To = "xxx@x.de"
.Subject = "Userneuanlage"
.HTMLBody = "Hallo Kollegen, <p>wir bitten Sie die Neuanlage des neuen Mitarbeiters umzusetzen.</p>"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Vlt sieht ja einer von euch den Fehler...

Danke und gruß
Zer0core

 

[morcego]

Da wirste das vermutlich noch vorher speichern müssen, ansonsten existiert der aktuelle Stand nur irgendwo im Zwischenspeicher des PCs.

 

[Alkor35]

Hallo,

hast Du den vorher gespeichert?

Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True


EDIT: Da war jemand schneller

 

[zer0core]

Muss die Arbeitsmappe zwangsläufig gespeichert werden oder ist dies auch ohne möglich?

 

[morcego]

.Attachments.Add ActiveWorkbook.FullName

Welchen physikalischen Stand hat die Datei die du da verschickst auf dem Speichermedium?
Und dann stelle deine Frage mal in Frage. ^^

 

[zer0core]

Ich denke ich habe jetzt die Funktion die ich hierfür benötige...

Application.Dialogs(xlDialogSendMail).Show

ist es hierbei möglich genauso wie in der anderen einen "body" Text hinzuzufügen?