Excel VBA Email - wenn kein Anhang, dann..
19.05.2015 09:31:27
Hauser
ich habe eine Excel-Datei, aus welcher per Button in Outlook eine Email mit Inhalten dieser Datei erstellt wird.
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
If ActiveWorkbook.ActiveSheet.Range("G6") = "Bestätigt" Then
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "" & Range("M8") & ""
.CC = "Max Mustermann"
.Subject = "Bestellnummer" & Range("D6") & ""
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Sowohl "An" als auch "CC" und "Betreff" füllen sich automatisch, der Text der Email ist abhängig vom Inhalt der Range G6 ("In Bearbeitung" oder "Bestätigt") und wird mit Application.SendKeys eingegeben. So weit so gut.Alle Emails, die mit dem Status "Bestätigt" rausgehen, erhalten auch immer einen Anhang (eine bestimmte PDF-Datei).
Kann ich eine Warnmeldung einbauen, falls jemand versucht diese Email ohne einen Anhang zu versenden? Ich könnte natürlich eine Msgbox erscheinen lassen, die den Nutzer daran erinnert ("Denk an den Anhang!"), aber gibt es auch eine Möglichkeit, dies in Abhängigkeit zum Anhang zu setzen?
Gruß
Hauser