Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Word => Thema gestartet von: Rizzo am November 08, 2018, 11:54:31 Vormittag
-
Hallo zusammen,
ich habe ein Word 2013 Dokument mit einem Commandbutton hinterlegt, der aus dem Dokument eine Mail erzeugt und das Dokument als Anhang einfügt.
Es wird auch ein vor belegter Betreff und Text aus dem Dokument mit in der Mail mit gezogen.
Jetzt möchte ich aber noch gewisse variable Felder aus dem Dokument die gefüllt werden noch mit in den Betreff für die Mail ziehen lassen.
Dazu benötige ich jetzt Eure Hilfe!
Benötige das Coding und wie muss ich die Eingabefelder dafür einstellen?
Mein aktuelles Coding ist folgendes für den Commandbutton:
Private Sub CommandButton1_Click()
'Public Sub AttachToEmail()
Dim Outlook As Object
Dim Mail As Object
Dim Att As Object
Dim Fullname As String
Dim Dlg As Office.FileDialog
If ActiveDocument.Saved Then
Fullname = ActiveDocument.Fullname
Else
Set Dlg = Application.FileDialog(msoFileDialogSaveAs)
Dlg.Show
If Dlg.SelectedItems.Count Then
Fullname = Dlg.SelectedItems(1)
ActiveDocument.SaveAs Fullname
Else
Exit Sub
End If
End If
' Set Outlook = GetObject(, "outlook.application")
' Set Mail = Outlook.CreateItem(0)
' Set Att = Mail.Attachments.Add(Fullname)
' Mail.Subject = Att.DisplayName
' Mail.Display
Set olapp = CreateObject("Outlook.Application")
Set olitem = olapp.CreateItem(OlMailItem)
olitem.Subject = "TEXT für Betreff in der Mail"
olitem.body = "TEXT für Mail."
olitem.to = "Mailadresse"
ActiveDocument.SaveAs "Speicherort der Datei"
olitem.Attachments.Add ActiveDocument.Fullname
olitem.Display
End Sub
Vielen Dank
Gruß
Rizzo