Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SendMail

Forumthread: 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
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige