Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

SendMail

SendMail
Florian
Sub SendeMail()
  With Application.ActiveDocument.MailEnvelope
'       /\
'        \
'         \
'         |
'         |
' Hier kommt immer die Fehlermeldung
' "Laufzeitfehler 438
' Objekt untersützt diese Eigenschaft oder Methode nicht."
' Was habe ich falsch gemacht?
    .Introduction = "Einleitung"
    With .Item
      .Recipients.Add "name@firma.de"
      .Subject = "Hier ist das Dokument."
      .Send
    End With
  End With
End Sub


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: SendMail
Jens
Hallo Florian!
Eine Begrüßung am Anfang würde etwas freundlicher wirken!!!
Aber trotzdem.
Versuch es mal hiermit:

Sub SendeMail()
ActiveWorkbook.Save
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWB As String
AWB = ThisWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "name@firma.de"
.Subject = "Hier ist das Dokument"
.attachments.Add AWB
.Body = "" & vbCrLf & ""
.Display
.Send
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub

MfG
Jens
Anzeige
AW: SendMail
Florian
Hallo, Jens,
ich bin immer freundlich!!!
Aber Du hast meine Frage nicht beantwortet. Danke für die Mühe, aber mit Outlook möchte ich nicht arbeiten.
Es geht um eine Automatisierung für mehrere Anwender. Da hat jeder sein eigenes System. Nur eins haben alle: Outlook Express.
Gruß,
Florian
AW: SendMail
20.04.2004 19:15:04
DieterB
Hallo Florian,
versuch es mal hiermit:
Option Explicit

Sub Mail()
Dim Mailadresse, Datei
Datei = Worksheets("Tabelle1").Cells(1, 1)
Mailadresse = Worksheets("Tabelle1").Cells(1, 2)
MsgBox ("Das Dokument wird jetzt automatisch versandt!")
ActiveWorkbook.SendMail Recipients:=Mailadresse
MsgBox ("Das Dokument wurde versandt! ")
End Sub

Gruß
DieterB
Anzeige
Super Lösung
22.04.2004 10:34:32
Florian
Unkonventionell und Super!
Vielen Dank!
Florian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige