ich habe mal wieder ein Problem und hoffe auf eine Lösung von euch - hat bisher fantastisch geklappt. :-) Folgende Situation: in einem Arbeitsblatt werden per CommandButtons E-Mails generiert. In der Betreffzeile muss der Benutzer ein paar XXXXX durch eine bestimmte Nummer ersetzen, die er durch ein anderes Programm vorgegeben bekommt, und die sich nur durch Umwege in die Zwischenablage kopieren lassen. Leider wird es trotz eines Pop-Ups, dass explitzit sagt "XXXXX ersetzen" ab und an vergessen, die XXXXXX durch die entsprechende Nummer zu ersetzen. Das nervt die Empfänger und mich sehr.
Ich möchte daher, dass nach dem Click auf den CommandButton ein kleines Pop-Up erscheint, in das der User die Nummer eingibt, und dass diese Eingabe dann die XXXXX in der Betreffzeile ersetzt. Dann soll die Mail angezeigt werden, der User klatscht seine Signatur darunter und schickt die Mail ab. Hier der Code bisher: (Da, wo Name1 und so steht, sind natürlich richtige Mailadressen, die ich aber aus datenschutzgründen rausgenommen habe)
Private Sub CommandButton1_Click()
MsgBox ("Bitte in der Eskalationsmail beachten:" & vbCrLf & "" & vbCrLf & "1. Im Betreff die _
XXXXXXXXX durch die Request ID ersetzen" & vbCrLf & "" & vbCrLf & "2. Die Zeile HIER BISHERIGE _
GEMAEINTRÄGE EINFÜGEN bearbeiten" & vbCrLf & "" & vbCrLf & "3. Eigene Signatur anfügen!")
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "Name1@dhl.com"
.CC = "Name2@dhl.com; Name3@dhl.com; Name1@deutschepost.de"
.Subject = "1. Eskalation Express, Request ID XXXXXXXXX -KSF-"
.Body = "Sehr geehrter Herr Name," & vbCrLf & "" & vbCrLf & "leider haben wir auf _
unsere Anfrage/n bisher keine Antwort erhalten." & vbCrLf & "Gemäß den Eskalationsstufen benö _
tige ich Ihre Hilfe und bitte Sie, die dringend benötigte Stellungnahme schnellstmöglich einholen zu lassen, damit der Fall zu einem finalen Abschluss gebracht werden kann." & vbCrLf & "" & vbCrLf & "Auszug aus GEMA:" & vbCrLf & "" & vbCrLf & "HIER BISHERIGE GEMAEINTRÄGE EINFÜGEN" & vbCrLf & "" & vbCrLf & "Für Ihre Unterstützung vielen Dank im voraus." & vbCrLf & "" & vbCrLf & ""
'Hier wird die Mail nochmals angezeigt
.Display 'oder .Send zum versenden
End With
'OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Die große Frage: Geht das überhaupt? Ich möchte das ungerne über eine Eingabe in eine Zelle oder ein Textfeld lösen, das würde ich vermutlich auch alleine hinbekommen. ;-) Das Pop-Up hätte was schönes, elegantes an sich.
Vielen Dank für jede Hilfe und beste Grüße aus Hamburg
Dennis M.