Code ändern.
13.02.2008 12:36:47
Frank
Ich habe wieder mal ne Frage.
Ich habe hier einen Code der ein Tabellenblatt kopiert und diesen dan per Mail verschickt.
Aber was ich festgestellt habe, das wenn er die Kopie gemacht hat,mir auch noch eine Kopie in meine Eigenen Datein speichert. Dies soll er aber nicht machen .Weil die Tabelle schon anders wo gespeichert wird.
Kann mir jemand den Code ändern ich abe es versucht aber ich bekomme dan nur noch Fehlermeldungen.
Könnte mir das auch jemand erklären,wie das abläuft.?
Sub MailVersand()
Dim aws As String
Dim olapp As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.Save
aws = ActiveWorkbook.FullName
Set olapp = CreateObject("Outlook.Application") 'Erstellt eine Outlooksession
With olapp.CreateItem(0)
.To = "empfänger1@netz.de" 'Empfänger
.CC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Kopie an
.BCC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Blindkopie an
.Subject = "Rechnung" 'optional Betreff
.htmlBody = "Rechnung" 'optional Text
.Attachments.Add aws 'fügt den Angang an
.Display 'zeigt die Email an
'SendKeys "%s", True 'optional. Schließt das Emailfenster.
End With
Set olapp = Nothing 'Beendet die Outlooksession
ActiveWorkbook.Close 'Schließt die Kopie
End Sub
Ich sag schon mal Danke für Eure Hilfe.
MfG
Frank