Word 2007 senden an

[zer0core]

Hallo Leute,

ich habe verschiedene Word Formulare.
Ist es möglich im Dokument selbst ein button oder ein Symbol Link oder dergleichen zu implementieren, der das Dokument komplett ausgefüllt an eine Mail Adresse verschickt?

LG zer0core

 

[Alfredo]

Kurz gegoogelt:
http://www.techtalkz.com/microsoft-office-word/146594-word-submit-button-email.html

 

[zer0core]

Vielen Dank Alfredo,

jedoch funktioniert die funktion hasroutingslip nicht mehr bei office 2007

bin schon am googlen aber find nix gescheides im moment.

Ergänzung (14. Juni 2012)

Also für diejenigen, die es Interessiert hier der Code der ab Office 2007 funktioniert.

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim aws As String
Dim olapp As Object
'ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
.To = "test@test.de"
'.cc = "mail1@server.de,mail2@server.de,mail3@server.de" 'optional Kopie an
'.bcc = "mail1@server.de,mail2@server.de,mail3@server.de" 'optional Blindkopie an
.Subject = "Hallo Welt" ' Betreff optional
.HtmlBody = "Text content" ' Body optional
'.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
.Attachments.Add aws
.Display
'SendKeys "%s", True ' optional Mail sofort senden
End With
Set olapp = Nothing
Application.DisplayAlerts = True
End Sub

Wenn man in Excel ist Document mit workbook ersetzen das wars.
Sehr komfortabel für formulare, die direkt versendet werden müssen.