Arbeitsblatt versenden

Sub Excel_Workbook_via_Outlook_Senden() Dim Nachricht As Object, OutApp As Object Set OutApp = CreateObject("Outlook.Application") Dim AWS As String 'Aktive Arbeitsmappe wird als mail gesendet AWS = ActiveWorkbook.ActiveSheet.Copy ActiveWorkbook.SaveAs Range("A1").Value & ".xls" 'InitializeOutlook = True Set Nachricht = OutApp.CreateItem(0) With Nachricht .To = "" .Subject = "Bitte um Weiterbearbeitung" & " " & Date & " " & Time 'gibt Betreff Werner und Datum Zeit aus .attachments.Add AWS 'Hier wird die HTML Mail erstellt .HTMLBody = "Einen wunderschönen Tag wünschen wir Ihnen" '& vbCrLf & "Bitte ignorieren." 'Hier wird die Mail nochmals angezeigt .Display 'Hier wird die Mail gleich in den Postausgang gelegt End With OutApp.Quit End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub MailProgrammÖffnen() On Error Resume Next ActiveWorkbook.Save AWS = ActiveWorkbook.FullName Set olApp = CreateObject("Outlook.Application") With olApp.CreateItem(0) .To = "HIER DIE MAILADRESSE" .Subject = ActiveWorkbook.Name .Body = "Dies ist eine automatisch generierte Email!" .Attachments.Add AWS .Send End With End Sub

Hi Excel - Fan´s,
ich habe das Gefühl als wenn ich meine Fragestellung nicht genau genug gestellt habe.
Ich nehme es nochmal zum Anlaß und vormuliere es neu.
Habe hier im Archiv ein Code gefunden, mit dem per Makro eine kompl. Arbeitsmappe per Outlook versandt werden kann.
Mein Problem an diesem Code ist, dass ich an meine Grenzen gekommen bin und ich ihn nicht umschreiben kann.
Ich möchte aus dem u.g. Code nur eine Änderung hervorgehen lassen, und zwar das mit diesem Code keine kompl. Arbeitsmappe versendet wird sondern nur das aktive Arbeitsblatt. Weiterhin möchte ich das der Code einen Namen der in der Zelle A1 vorgegeben ist, als Dateinamen für das zu versendende Arbeitsblatt nimmt.
Hoffe es gibt eine Möglichkeit, ich bin für jede Hilfe dankbar!
Der Code geht so:


Sub Excel_Workbook_via_Outlook_Senden()
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
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = " "
.Subject = "Testmail" & " " & Date & " " & Time
.attachments.Add AWS
'Hier wird die HTML Mail erstellt
.HTMLBody = "Einen wunderschönen Tag wünschen wir Ihnen" '& vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
End Sub

Gruß
André

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread