collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 37
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 1

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13570
  • stats Beiträge insgesamt: 60074
  • stats Themen insgesamt: 8221
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: word doc automatisch per outlook versenden  (Gelesen 199 mal)

Offline hkrainer

  • Newbie
  • Beiträge: 5
word doc automatisch per outlook versenden
« am: April 18, 2017, 23:13:33 »
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
 

Offline DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 22797
Re: word doc automatisch per outlook versenden
« Antwort #1 am: April 19, 2017, 09:06:14 »
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).



Offline hkrainer

  • Newbie
  • Beiträge: 5
Re: word doc automatisch per outlook versenden
« Antwort #2 am: April 20, 2017, 14:13:44 »
vielen Dank
werde es ändern

gruß Heinz