Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mail mit anhang senden

Mail mit anhang senden
12.12.2002 23:32:10
chris b.
Hallo Excel Profis,
ich hatte eine frage und die hat mir auch jemand beantwortet, jetzt habe ich ein Problem ich kann es nicht umsetzten.
Ich wollte über excel direkt in Outlock eine Datei versenden. Die hilfe die ich bekam sah so aus:

with mailerei
.itm
.subject "Testmailer"
.to "testuser@xyz.de"
.attachments.Add "c:\chris\home\test.txt"
.send
end with

Kann mir da evtl von euch jemand weiterhelfen ??
Danke schon einmal Christian !

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mail mit anhang senden
13.12.2002 00:43:20
Ramses
Hallo Christian,

füge den Code in ein Modul deiner Arbeitsmappe ein, dann kannst du über einen Button oder ein Symbol in der Symbolleiste deine Mail versenden.
Allerdings gibt es unter 2000 und XP auch die Möglichkeit über "Datei - Senden an".

Sub Excel_Workbook_via_Outlook_Senden()
    Dim Nachricht As Object, OutApp As Object
    Set OutApp = CreateObject("Outlook.Application")
    Dim AWS As String
    'Aktive Arbeitsmappe wird als mail gesendet
    AWS = ThisWorkbook.FullName
    'InitializeOutlook = True
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        .To = "irgendwer@provider"
        .Subject = "Testmeldung von Excel2000 " & Date & Time
        .attachments.Add AWS
        .Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
        'Hier wird die Mail nochmals angezeigt
        .Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        'Mail.Send
    End With
    OutApp.Quit
    Set OutApp = Nothing
    Set Nachricht = Nothing
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Mail mit anhang senden
13.12.2002 17:14:12
chris b.
Danke klappt !!!!

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige