Datei mit Makro umwandeln und als Anhang via Outlook senden

[zelle0815]

Hallo allerseits,

ich habe ein Formular (Datei 1) gebastelt, das mit einem Makro 1 alle Daten in eine andere Datei laufend kopiert. (Datei 2)

Dieses Formular soll an bestimmte Empfänger versendet werden. Dies ist jedoch nicht möglich, da Makros standardmäßig von unserer EDV blockiert werden.

Ich bin so vorgegangen, dass ich mit einem Makro 2 das Tabellenblatt des Formulars kopiert und ein leeres Tabellenblatt eingefügt und abgespeichert habe. (Datei 3) Dieses Makro soll dann die Datei 3 per Outlook an einen bestimmten Empfänger senden.

Problem: Es wird nur die ursprüngliche Datei 1 angehängt und nicht - wie gewünscht die Datei 3

Wie löse ich das????? Wäre sehr froh und dankbar

LG
Stefan

____ Hier der Code_____

Sub Versenden()

    Columns("A:D").Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
       
' Datei unter bestimmten Name und Pfad abspeichern
       
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "J:\Test"
datei = ActiveSheet.Range("B1")
ActiveWorkbook.SaveAs Value & Range("B1").Value & ".xls"

Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ThisWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "test@test.at"
.Subject = "Testmeldung" & Date & Time
.attachments.Add AWS
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
'Outlook schliessen
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

[steve1da]

Hola,

wäre das nicht eher etwas für das Excel Forum?

Gruß,
steve1da

[schauan]

Hallöchen,

schon ist es drin - im Excel-Forum.

[Steffl]

Hallo,

ersetze mal diese Codezeile

Code:

AWS = ThisWorkbook.FullName

durch diese

Code:

AWS = ActiveWorkbook.FullName

[zelle0815]

Hallo Steffl und Steve1da,

sorry für die späte Antwort und danke für Eure Hilfe.

Ich konnte das so lösen:
Schritte 1: Tabelle in neues Blatt kopieren und als normale Excel datei speichern. Spart Speicherplatz und wird nihct von der EDV sanktioniert
Schritte 2: Tabelle in outlook kopieren und an vorab definierte Empfänger versenden

funktioniert einwandfrei

liebe Grüße

Stefan