Configurator Angebot VBA
03.06.2018 12:12:04
Dennis
Ich bin seit ein paar Wochen mit dem Thema Makros beschäftigt und versuche ein Konfigurator der mir ein Angebot erstellt und per E-Mail versendet zu erstellen!
Da ich auf dem Gebiet Anfänger bin bitte um eure Hilfe.
Windows 2016, MS Office 2016
Folgender Code soll eine PDF generieren und per Email versenden, allerdings nimmt er nicht die _
Email Adresse aus dem Tabellenblatt "Configurator" Zelle D7. Genauso mit Betreff und Inhalt. _ Und er erzeugt noch dazu eine Exceldatei, was ich nicht haben will. Weitere Frage, wie kann ich es machen das der Name der Datei aus dem Wort Angebot und der Zelle D16 (Tabellenblatt Configurator) besteht?:
Sub PDF_MAIL()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Sheets("Angebot").Copy
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
ThisWorkbook.Path & "\testPDF.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Sheets("Configurator").Range("D7").Value 'Empfaenger
.Subject = Sheets("Configurator").Range("D21").Value 'Betreffzeile
.body = Sheets("Configurator").Range("C74").Value 'Inhalt
.Attachments.Add mePDFD
.display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Folgender Code macht den Reset der Eingetragener Daten.
Frage, wie kann ich bestimmte Zellen definieren? D21 bis E60 und D2 bis D18?
Sub Reset()
Range("D21:E60").Value = ""
End Sub
Hoffe ihr könnt mir weiterhelfen.
Vielen Dank im Voraus!
Gruß
Dennis