E-Mail automatisch aus Excel versenden

[IchBinIch]

Hallo,

das ist hier ist vermutlich das Problem

Code:

With Tabelle1

Öffne mal den VBA-Editor (Alt+F11) und schau in welcher Tabelle der Code laufen soll.

Im Projektexplorer (linke Seite) werden Dir die Tabellen angezeigt.

   

Nimm den Namen vor der Klammer. Der Name in Klammern ist der Name, der auf den Registern angezeigt wird.
Dann änderst Du obige Codezeile einfach in die entsprechende Tabelle. C'est ca :32:.

Gruß
Ich

[IchBinIch]

Sorry ich war mal wieder zu kurz gesprungen.
Leezeilen sind grundsätzlich immer doof, aber hiermit sollte es funktionieren.

Ändere doch bitte noch diesen Teil:

For Z = 4 To zm
    'Wenn in Spalte A ein Datum steht und das Datum in Spalte A <= Heute dann 
    If IsDate(.Cells(Z, 1).Value) And .Cells(Z, 1).Value <= Date Then
        'nimm den Wert aus Spalte B und füge ihn der Variablen hinzu 
        pn = pn & .Cells(Z, 2).Value & ", "
    End If
Next Z

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0

Gruß
Ich

[Garfield123]

Tausend Danke! Hat endlich funktioniert so wie ich es mit vorgestellt habe :19:

Dir noch einen schönen Tag!

Beste Grüße
Garfield

[Garfield123]

Hi,

nochmal ne Frage: Wenn ich den Code jetzt eingegeben habe, läuft der automatisch im Hintergrund weiter?
Also wenn ich morgen dieses Datei öffne, würde ich ne E-Mail bekommen sofern das Datum von morgen dabei ist oder?
Falls nicht, wie aktiviere ich dass das Makro automatisch läuft?

Gruß

[IchBinIch]

Hi,

der Code läuft nicht automatisch.
Am einfachsten wäre eine Schaltfläche auf dem/einen Blatt, die das Makro startet.

Gruß
Ich

[Garfield123]

Ich habe diesen Beitrag dazu gefunden ...
"Du musst auf Extras gehen , dann Makro, Makros; Bearbeiten ,
dann: Sub Makro1() durch Sub auto_open() ersetzen."

Bei dem jetzigen Code steht ja in der 1. Zeile: Sub EmailVersenden() ...meinst du ich könnte den dadurch ersetzen bzw. erweitern. Weil angeblich soll es damit funktionieren, also mit dem Sub auto_open().

Gruß

[Käpt'n Blaubär]

Hallo,

dann: Sub Makro1() durch Sub auto_open() ersetzen."

Auto_Open ist älter als die Steinkohle.
Heute benutzt man ...

Option Explicit

Private Sub Workbook_Open()
....
End Sub

... was in das Klassenmodul "DieseArbeitsmappe" gehört"

[Garfield123]

Danke Käpt'n für die schnelle Antwort!

Also nur die 3 Zeilen:  
Option Explicit

Private Sub Workbook_Open()

End Sub

in "DieseArbeitsmappe" oder sollten die "..." zwischen private Sub und End Sub für die Zeilen des Codes stehen den ich verwende?

Gruß

[IchBinIch]

Zur Veranschaulichung von Kapt'n Blaubär's Beitrag

Öffne die Entwicklungsumgebung (Alt+F11)

Doppelklicke links auf "Diese Arbeitsmappe"

   

Wähle "Workbook"


   

und füge den Code dazwischen ein.

   

[Käpt'n Blaubär]

Hallo,

... in "DieseArbeitsmappe" oder sollten die "..." zwischen private Sub und End Sub für die Zeilen des Codes stehen den ich verwende?

ähm, ja, ... das wäre von Vorteil, ... weil ich annehme, daß sonst Excel nicht weiß, was zu tun ist.  :05:

Allerdings habe ich mir Deinen Code nicht angesehen und ich habe auch die
25 vorherigen Posts nicht gelesen. Ich bin erst gerade wieder von einer
"Außenmission" zurück und bin froh, meinen Hintern mal wieder bequem
geparkt zu haben  :19:


Hi @ Ich, Danke für Deine Erläuterungen.

Komplett wäre aber gewesen zu bemerken: speichern nicht vergessen   :19: