Thema Datum  Von Nutzer Rating
Antwort
Rot VBA XLSM per abspeichern und per Mail senden
01.11.2021 20:58:00 Piet
NotSolved
02.11.2021 06:12:31 Gast53099
NotSolved

Ansicht des Beitrags:
Von:
Piet
Datum:
01.11.2021 20:58:00
Views:
81
Rating: Antwort:
  Ja
Thema:
VBA XLSM per abspeichern und per Mail senden

Hallo Zusammen,

ich habe mit Hilfe eines Freundes mal vor Jahren eine Formel erstellt.

Funktion:
Excel zu PDF, abspeichern mit Dateienamen zusammegebaut mit Werten aus Zellen, füge diese Datei Outlook ein und verschicke sie mit gewissen Vorgaben im Betreff usw...

Nun meine Frage: ich würde den gleichen Vorgang, genau so umsetzten. Nur soll er keine PDF erstellen, sondern eine XLSM Datei, und dann auch wie in der Formel per Mail verschickt werden.

Ich Dachte ich kann es mir einfach machen indem ich einfach alle "PDF" textblöcke in XLSM ändern aber das funktioniert nicht. Habt ihr eine Idee?

Hier meine Formel:

Sub EmailPDF()

'Variablen definieren
Dim strPDF As String, Dateiname As String, Revision As String
Dim OutlookApp As Object, Email As Object

'Vorgaben
Set OutlookApp = CreateObject("Outlook.Application")

'Outlook nutzen
Set Email = OutlookApp.CreateItem(0)

'Email erstellen
Dateiname = "Schadensmeldung VE " & Range("D16") & ", " & Range("D11") & ", " & Format(Date, "_dd_mm_yyyy")

'Dateiname: Schadensmeldung VE, Standort, Datum
strPDF = ThisWorkbook.Path & "\" & Dateiname & ".pdf" 'Pfad zwischenspeichern

'PDF erzeugen
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDF, Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False

'E-Mail versenden

With Email
.To = "mail@test.de"
.CC = Range("D10") & "; " & Range("I4")
.Subject = "Schadensmeldung: " & Range("D16") & "," & " VE " & Range("D11")
.Body = "Im Anhang die Schadensmeldung für: " & Range("D11") & "," & " VE" & Range("D16")
'.BodyFormat = 2 '1=Text, 2=HTML
.Attachments.Add strPDF
.Display 'vorher anzeigen
'.Send 'Sofot versenden
'Kill strPDF 'PDF löschen?
End With

'Objektvariablen löschen
Set OutlookApp = Nothing
Set Email = Nothing


End Sub

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA XLSM per abspeichern und per Mail senden
01.11.2021 20:58:00 Piet
NotSolved
02.11.2021 06:12:31 Gast53099
NotSolved