@ Ramses

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: @ Ramses

25.01.2004 12:08:10

Torsten

sieht gut aus :-)

25.01.2004 12:16:03

Jonathan

AW: @ Ramses

25.01.2004 12:32:32

Jonathan

AW: @ Ramses - sorry

25.01.2004 13:30:49

Torsten

AW: @ Ramses

25.01.2004 13:19:22

Ramses

AW: @ Ramses

25.01.2004 15:41:03

Jonathan

AW: @ Ramses

25.01.2004 16:23:53

Ramses

AW: @ Ramses

25.01.2004 17:05:07

Jonathan

Merci :-) Geschlossen o.T.

25.01.2004 21:33:38

Ramses

Hi Jonathan,
ich bin zwar nicht Ramses, aber vielleicht nimmst Du ja auch meine Hilfe an. Also die SendMail Methode gilt für das Workbook Objekt. Du müsstest also , wenn Du eine beliebige Datei versenden willst, zunächst einem Object die Datei zuweisen und dann versnden, wie z.B.
'Objektvariable initialisieren
Dim excwb as workbook
'Objektvariable zuweisen
set excwb = Workbooks("c:\afbaebbtbt\sdgbsgg\123.xls")
'Mail versenden
excwb.sendmail recipients:="123@t-online.de", subject:="test"
Details zu den Mailsystemen (inkl. Outlook, Outlook läuft unter Microsoft Mail), Anmeldung am Mailssystem, Abmelden vom Mailsystem etc. gibt es in der VBA Hilfe unter den Indexeinträgen Mailsystem, Mailsession, MailLogon und MailLogoff ....
Ich hoffe es hilft erst einmal
Grüße
Torsten

Sub test1() 'Objektvariable initialisieren Dim excwb As Workbook 'Objektvariable zuweisen, Workbook öffnen Set excwb = Workbooks.Open("C:\Dokumente und Einstellungen\Test\Desktop\test.xls") 'Mail versenden excwb.SendMail Recipients:="123@t-online.de", Subject:="test" 'Workbook schliessen excwb.Close End Sub

Hallo
schön diese Empfehlung :-)).
Mal sehen was wir machen können.
Der Code von Torsten ist schon mal nicht schlecht, allerdings können nur geöffnete Mappen gesendet werden mit dieser Methode.
Du musst deshalb das ganze etwas abändern:

Option Explicit
Sub Mini_Mail()
'Objektvariable initialisieren
Dim excwb As Workbook
'Datei öffnen
Application.Workbooks.Open "C:\test.xls"
'Objektvariable zuweisen
Set excwb = Workbooks("test.xls")
'Mail versenden
excwb.SendMail Recipients:="123@t-online.de", Subject:="test"
'Datei schliessen
excwb.Close False
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Damit wird die Datei über das aktuelle im System angemeldete Standard-Mailsystem gesendet. Allerdings unterstützen nicht alle Mailsysteme die Möglichkeiten von VBA.
Da ist derzeit leider nur MS Outlook, nicht Outlook-Express !!, und Notes, welche die VBA-Object Programmierung unterstützen ( ist zwar nicht ganz korrekt gesagt, trifft aber den Kern für Anfänger ) und "ferngesteuert" werden können.
Wenn du MS Outlook ab 2000 installiert hast, dann kannst du folgenden Code verwenden

Option Explicit
Sub Excel_Mail_für_einzelnen_Empfänger_mit_Attachment()
    'Variablendefinition
    Dim Fs As Object, f As Object
    Dim OutApp As Object, Mail As Object
    Dim i As Integer, Msg As Integer
    Dim Nachricht As Variant
    Dim AWS As String
    Dim AnzEmpfänger As Integer
    'Variablen füllen
    'Filesystemobjekt erstellen
    Set Fs = CreateObject("Scripting.FileSystemObject")
    'Attachment zuweisen
    'Pfad steht hier in D1
    AWS = Cells(1, 4)
    '1. Fehlerprüfung
    'Mit dem FilesystemObjekt wird zuerst die Existenz
    'der Datei geprüft. Wenn diese nicht existiert
    'wird das Makro abgebrochen
    'Der Link auf deine Anlage liegt in der Spalte D
    'in der gleichen Zeile wie der markierte Empfänger
    If Fs.fileexists(AWS) = False Then
        Msg = MsgBox("Die Datei: " & AWS & " in F" & i & " exitstiert nicht !" & vbCrLf & "Der Sendevorgang an; " & Cells(i, 1) & " wird abgebrochen!", vbCritical + vbOKOnly, "Dateifehler")
        Exit Sub
    End If
    'Sendevorgang einleiten
    Set OutApp = CreateObject("Outlook.Application")
    Set Nachricht = OutApp.CreateItem(0)
    With Nachricht
        'Empfänger steht in A1 oder
        '.To = "irgendwer@irgendein-provider.de"
        .To = Cells(i, 1)
        'Betreff steht in B1 oder
        '.Subject = "Änderung an Mappe1"
        .Subject = Cells(i, 2)
        'der zu sendende Text steht in C1 oder
        '.Body = "Einige Werte in Mappe1 wurden geändert" & vbcrlf & "Bitte prüfen"
        .Body = Cells(i, 3)
        'Attachment anhängen
        .Attachments.Add AWS
        'Hier wird die Mail zuerst angezeigt
        .Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        'und gesendet
        '.Send
    End With
    'Variablen zurücksetzen
    Set OutApp = Nothing 'CreateObject("Outlook.Application")
    Set Nachricht = Nothing 'OutApp.CreateItem(0)
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Mit

If Application.MailSystem <> 1 Then
MSgBox "Kein unterstütztes MS Mailsystem vorhanden. Attachment kann nicht gesendet werden"
Exit Sub
End If

individuell auf die installierte Mailsysteme reagieren ( siehe OLH )
So nun kannst du mal ein wenig probieren.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread