Eine Excel Arbeitsmappe abspeichern

Sub Speichern_Schicht1() Dim Dateiname As String Dim KW As Integer Dim Abteilung As String KW = ActiveSheet.Range(B3).Value Abteilung = ActiveSheet.Range(B4).Value Dateiname = "Schichtbetrieb_Logistik_" & Abteilung & "Schicht1_KW_" & KW & "_KW0" & ".xlsx" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Dateiname, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim emailAddress As String Application.DisplayAlerts = False emailAddress = [CC_Field] ThisWorkbook.Worksheets("Tabelle1").Copy With ActiveWorkbook .SendMail Recipients:=emailAddress, Subject:="Pendenzenliste" 'Name geben, muss nicht _ Pendenzenliste heissen .Close End With Application.DisplayAlerts = True End Sub

Hi Franky,
Irgendwie bekomme ich einen Body-Text in obigen Code zu integrieren.
Der neue Code kanns, allerdings verschickt auch dieser nur das bestehende Dokument.
Mehrere Empfänger einfach mit ; trennen.


Option Explicit
Const EMBED_ATTACHMENT As Long = 1454
Const stPath As String = "...." 'hier sollte ein sep Dokument hergeholt werden können
Const stSubject As String = "Wochenreport"
Const vaMsg As Variant = "Wie versprochen der Wochenreport." & vbCrLf & _
"Beste Grüsse," & vbCrLf & _
"DH"
Const vaCopyTo As Variant = "......."
Sub Send_Active_Sheet()
Dim stFileName As String
Dim vaRecipients As Variant
Dim noSession As Object
Dim noDatabase As Object
Dim noDocument As Object
Dim noEmbedObject As Object
Dim noAttachment As Object
Dim stAttachment As String
With ActiveSheet
.Copy
stFileName = .Range("A1").Value
End With
stAttachment = stPath & "\" & stFileName & ".xls"
With ActiveWorkbook
.SaveAs stAttachment
.Close
End With
vaRecipients = VBA.Array(".....") 'Empfänger
Set noSession = CreateObject("Notes.NotesSession")
Set noDatabase = noSession.GETDATABASE("", "")
If noDatabase.IsOpen = False Then noDatabase.OPENMAIL
Set noDocument = noDatabase.CreateDocument
Set noAttachment = noDocument.CreateRichTextItem("stAttachment")
Set noEmbedObject = noAttachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)
With noDocument
.Form = "Memo"
.SendTo = vaRecipients
.CopyTo = vaCopyTo
.Subject = stSubject
.Body = vaMsg
.SaveMessageOnSend = True
.PostedDate = Now()
.Send 0, vaRecipients
End With
Kill stAttachment
Set noEmbedObject = Nothing
Set noAttachment = Nothing
Set noDocument = Nothing
Set noDatabase = Nothing
Set noSession = Nothing
MsgBox "The e-mail has successfully been created and distributed", vbInformation
End Sub

Beliebteste Forumthreads (12 Monate)

Eine Excel Arbeitsmappe abspeichern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eine Excel Arbeitsmappe abspeichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread