19.03.2018, 19:07
(Dieser Beitrag wurde zuletzt bearbeitet: 19.03.2018, 19:28 von schauan.
Bearbeitungsgrund: Smilies ausgeschalten
)
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
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
- im Excel-Forum.