Button mit weiterer "Vorgehensweise?"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

answ = MsgBox("Wenn Sie dads Deckblatt füllen wollen, clicken Sie 'Ja', wenn Sie die Datei per _ E-mail weiterleiten möchten 'Nein'", Buttons:=vbYesNoCancel) If answ = 6 Then Sheets(1).Activate Sheets(1).Range("A1").Select Else If answ = 7 Then Call sendFileAsMail End If End If

Sub sendFileAsMail() Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .To = "beispiel@bsp.de" .Subject = "Betreff: ExcelDatei" .Body = "Diese E-Mail sollte als Anhang " & Thisworkbook.Name & " enthalten." .Attachments.Add 'vollständiger Dateipfad .Display End With End Sub

Sub sendFileAsMail() Dim objOutlook As Object Dim objMail As Object Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .To = "" .CC = "nameatname.name" .Subject = "Prüfprotokoll " & ThisWorkbook.Name .Body = "Siehe Datei im Anhang: " & ThisWorkbook.Name & vbNewLine & " Für Rückfragen stehe _ ich zur Verfügung." .Attachments.Add ActiveWorkbook.FullName 'vollständiger Dateipfad .Display End With End Sub

Hallo,
ich hatte Dir ja schon eine komplette Mailversendung mit Empfängerabfrage und incl. Dateianhang und Signatur in den nachfolgenden Code (Modul1) gepackt, den Du auch noch anpassen kannst...
Wenn Du diesen trotzdem in einer Extra-Sub haben willst oder Deine Sub sendFileAsMail nehmen möchtest, ersetzt Du den gesamten Code zwischen case "Weiterleiten" und case else durch Call sendFileAsMail
.....
case "Weiterleiten"
Call sendFileAsMail
case else
.....

Sub MeineMsgBox()

 Dim sTo As String, sMailText As String, sSignatur As String

 Select Case MsgBoxEx("Möchtest Du das Deckblatt ausfüllen oder die Datei weiterleiten?", "Auswahl", _

            "&Deckblatt,&Weiterleiten,A&bbrechen", vbQuestion)

 Case "Deckblatt":

      With Sheets("Deckblatt")

       .Select

       .Range("A1").Select

      End With

 Case "Weiterleiten":

'Mail senden

   sTo = "eMail@web.de"

Nochmal:

   sTo = InputBox("Bitte den Empfänger eingeben!", "eMail senden", sTo)

   If StrPtr(sTo) = 0 Then Exit Sub

   If sTo = "" Then GoTo Nochmal

   If Not sTo Like "*@*.*" Then GoTo Nochmal

   sMailText = "Siehe Datei im Anhang: " & ThisWorkbook.Name _

             & "¶ Für Rückfragen stehe ich zur Verfügung.¶"

   With CreateObject("Outlook.Application").CreateItem(0)

    .To = sTo

    .Subject = "Betreff: ExcelDatei"

    .GetInspector:  sSignatur = .HTMLBody       'Signatur holen

    .HTMLBody = Replace(sMailText, "¶", "&LT;br&GT;") & sSignatur

    .Attachments.Add ThisWorkbook.FullName      'Datei in eMail einfügen

    .Display

   End With

  Case Else

    Exit Sub

  End Select

End Sub

viele Grüße
Karl-Heinz

Hi,
ich gehe mal davon aus, dass Du Deine Sub sendFileAsMail meinst.
Dein Text ist nicht eindeutig: Nun will ich nur noch, dass die Datei im Anhang, so heißt wie im Code .Subject angegeben ist, dass eben die zu verschickende Excel File so heißt wie der Anhang.
Die zu verschickende Excel File heißt immer wie der Anhang.
Hier ist im Subject "Prüfprotokoll " & ThisWorkbook.Name, also die Datei, in dem das Makro steht, angeführt.
Versendet wird aber die gerade aktive Datei, .Attachments.Add ActiveWorkbook.FullName. Das kann die gleiche Datei sein, muss aber ncht.
Wenn Du die gleiche Datei, die auch im Subject angegeben ist, versenden willst, muss Du .Attachments.Add ThisWorkbook.FullName verwenden.
viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Button mit weiterer "Vorgehensweise?"

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button mit weiterer "Vorgehensweise?"

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread