word doc automatisch per outlook versenden

[hkrainer]

guten abend zusammen,
ich versende doc´s per folgendem code
Sub EmailBrauerei()

    'Sub AktivesDokumentAlsAnhang()
Dim aws As String
Dim olapp As Object

aws = ActiveDocument.FullName
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
     With ActiveDocument
        dokvor = .BuiltInDocumentProperties(wdPropertyTemplate)
     End With
If dokvor = "Brauerei.dotm" Then
        empf = "**@**.de"
  '      MsgBox empf
       ' .to = "privat@falterkutsche.de"
   .to = empf '"@*.de"
   
ElseIf dokvor = "Normal.dotm" Then
        MsgBox dokvor
    .to = "hkrainer@habeka.com"
Else
empf = InputBox("bitte hier die email Adresse eingeben !", "* *", "email Adresse")
    Exit Sub
End If
    -an
   '  .bcc = "privat@habeka.com" 'optional Blindkopie an
      .Subject = "Bestellung" ' Betreff optional
     ' .HtmlBody = "test2" ' Body optional
     '.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
      .Attachments.Add aws
      .Display
    SendKeys "%s", False 'True ' optional Mail sofort senden

End With

Set olapp = Nothing
End Sub

ich weiß das <<send keys>> keine elegante Lösung ist allerdings stört mich mehr das es meisten nicht funct (soll heißen ich muß wieder zu Outlook wechseln und nochmal auf senden klicken)

würde mich freuen wenn jemand eine elegante Lösung hätte

mfg
hkrainer

[DF6GL]

Hallo,

.Send anstelle .Display sendet die Email sofort.

Allerdings kann es je nach Outlook-Version zu einer Sicherheits-Nachfrage kommen.

Zudem würde ich vor der Zuweisung (Anhängen) des Dateinamens das Dokument speichern und auch alle Variablen explizit deklarieren (Option Explicit).

[hkrainer]

vielen Dank
werde es ändern

gruß Heinz