E-Mail und Excel

[shadow-c4]

Hallo Excelfreunde
ich bin auf der Such nach einer Funktion, bei der eine E-Mail aus Excel gesendet wird.
Ich habe in meiner Datei ein Register "Wartungsmaßnahmen". In Spalte "I" sind Datumswerte. Wenn der Wert das Datum der kommenten Woche hat, soll eine E-Mail geschickt werden mit Betreff Spalte "D".
Ist dies möglich ohne viel Aufwand?

Danke im vorraus
Frank


Excel 2010
Outlook 2010

[WillWissen]

Hi,

das Thema wurde im Forum schon behandelt. Benutze mal die Suchfunktion, Eingabe z.B. e-mail aus excel

[Frogger1986]

Das geht via VBA... Bitte fertige eine bsp- Datei an um erkennen zu können wie die Struktur der Tabelle ist!

[Fennek]

Hallo,

das ist der Beispiel von von snb:

Code:

Sub M_snb()
   sn = sheet1.Cells(5, 34).Resize(65, 10)
  
   With createobject("outlook.application")
     For j = 1 To UBound(sn)
       If sn(j, 1) > 0 and sn(j,8)<>"" Then
            With .createitem(0)
               .to = sn(j, 8)
               .Subject = sn(j, 9)
               .body = sn(j, 10) & sn(j, 1)
               .send
             End With
        End If
     Next
    End With
End Sub

Anpassen mußt du ihn selbst.

mfg

[Frogger1986]

etwas einfacher zu verstehen...

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D
1	E-Mail Adresse	Betreff	Text	Sendedatum
2	Dingsbums@gmx.de	Test	lalalal555	10.09.2018
3	Dingsbums@gmx.de	Test	lalalal555	11.09.2018

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Code:

Sub Mail_Send()
 
Last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sendedatum = Date + 7
       For i = 2 To Last
         
          If Sendedatum = Cells(i, 4) Then
         
                   With CreateObject("outlook.application")
                            With .createitem(0)
                               .To = Cells(i, 1).Value
                               .Subject = Cells(i, 2).Value
                               .body = Cells(i, 3).Value
                               .send
                             End With
                    End With
                    Application.Wait (Now + TimeValue("0:00:3"))
           End If
       Next

End Sub

[shadow-c4]

Hallo Danke erst einmal
ich werden die Vorschläge testen und mich später wieder melden.
mfg Frank

[Matthias84]

Hallo,

schau dir dazu auch mal das hier an.