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
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).
vielen Dank
werde es ändern
gruß Heinz