ich nutze folgende Skript zum Versand des Arbeitsblattes als pdf-Datei:
Sub PDFmail1()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen für ARV1
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.To = "Verkauf@Lieferant.com" 'Lieferantenmail RV 1
.CC = "Einkauf@Firma.com" 'Projektleiter + Einkauf
.BCC = Range("Z2").Value
.Subject = "Abrufbestellung " & Date & Time 'Betreffzeile
.htmlBody = "Hallo, anbei erhalten Sie.... Vielen Dank."
.Attachments.Add pdfName
.Display
SendKeys "%S"
End With
End Sub
Nun folgende Frage: Es gibt bis zu fünf verschiedene Arbeitsblätter, die ggf. an unterschiedliche Empfänger zu mailen sind. Gibt es die Möglichkeit den Versand
per Button in Abhängigkeit, ob jeweils Zelle d17 gefüllt ist je nach Tabellenblattname an verschiedene Mail-Empfänger zu versenden?
Also z.B. Tabelle 1 d7 gefüllt = wahr - pdf-Versand an Empfänger 1
tabelle 2 d7 leer - nix passiert
tabelle 3 d7 gefüllt - pdf Versand an Empfänger 3 usw.
Die Empfänger sind wie in obigem Beispiel fest definiert und immer gleich.
Dann müßte der User nicht alle Blätter durchsuchen und extra versenden, das wäre eine große Hilfe.
Vielen Dank im Voraus für Eure Hilfe
Ines