| Von |
schoentalegg |
| eMail |
|
| Am |
23. April 2008 um 11:06:34 |
| Frage |
Hallo Leute
Ich erstelle ein Excel Formular, dass die Kunden mir direkt per E-Mail zusenden können. Ich habe einen Schaltknopf und dahinter folgenden Code erstellt:Option Explicit
Const strMailAdr As String = " Empfaenger@Adresse.xy"
Const strSubject As String = "Kundenbestellung"
Const strBody As String = vbCr & "Viele Grüsse" & vbCr & vbCr & "Firma XY" & vbCr & vbCr & vbCr
Sub MailVersand()
Dim olApp As Object
Dim olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
With olMail
.To = strMailAdr
.Subject = strSubject
.attachments.Add ThisWorkbook.FullName
.Body = strBody
.Display 'zeige es an
End With
Set olMail = Nothing
End Sub Das funktioniert wunderbar, wenn der Kunde das Workbbook speichert und erst dann den Schaltknopf drückt. Dies könnte ich natürlich per VBA abfangen, das will ich aber nicht: Der Kunde soll das Excel-Formular als Vorlage (*.xlt) verwenden können und er soll das Formular ausfüllen und direkt versenden können, ohne es speichern zu müssen!
Mit folgendem Befehl:Application.Dialogs(xlDialogSendMail).Show könnte ich das machen, aber hier habe ich wiederum nicht die Möglichkeit eine E-mail-Adresse einzugeben und Betreff/Mailtext zu beeinflussen (bzw. ich weiss nicht wie ich das machen könnte).
Einen Hyperlink kann ich ja auch nicht verwenden, da ich kann niegends festlegen kann, dass das Workbook als Anlage mitgegeben wird.
Kennt jemand einen Ausweg aus diesem Dilemma?
Danke erst mal.
Viele Grüsse
schoentalegg |
|
Zum Seitenanfang