Registriert seit: 16.04.2014
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
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi,
das Thema wurde im Forum schon behandelt. Benutze mal die Suchfunktion, Eingabe z.B. e-mail aus excel
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Registriert seit: 02.12.2017
Version(en): Office 365
Das geht via VBA... Bitte fertige eine bsp- Datei an um erkennen zu können wie die Struktur der Tabelle ist!
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 06.12.2015
Version(en): 2016
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
Registriert seit: 02.12.2017
Version(en): Office 365
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
Eine Menge reden, aber nichts sagen können viele...
Registriert seit: 16.04.2014
Hallo Danke erst einmal
ich werden die Vorschläge testen und mich später wieder melden.
mfg Frank
Registriert seit: 10.07.2018
Version(en): 2013, 2016
Hallo,
schau dir dazu auch mal
das hier an.
Viele Grüße,
Matthias
-------------------------------------------------------------------------------------------
Man muß nicht alles wissen, man muß nur wissen, wie man die Lösung findet.