Hallo Zusammen,
ich benötige Hilfe bei der Durchführung folgender Aktion:
Excel Datei soll eine automatische Mail an bestimmte Mitarbeiter versenden.
Auslöser soll in reihe P ein bestimmter wert sein „30“.
Reihe P ist so was wie ein Countdown, der automatisch die Anzahl der verbliebenen Tage für die Kalibrierung runterzählt.
Wer kann mir hier helfen dieses Problem zu lösen?
Hier hat einer ein ähnliches Problem:
vom Prinzip:
Macro erstellen, dass die Zellenwerte überprüft; mit wenn dann email auslösen
http://www.office-loesung.de/ftopic499463_0_0_asc.php
Vielen Dank für die Info, ich werde es heute ausprobieren!
Hallo @smirno,
irgendwie komme ich hier nicht weiter, versuche schon seit einigen Tagen auf das gewünschte Ergebnis zu kommen aber leider vergebens.
Habe dein Vorschlag mal angeschaut und versucht daraus meine eigenes Script zu erstellen, vergebens. Hierzu reichen meine Kenntnisse leider nicht aus.
Anyway, mein Script sieht folgend aus:
Dim strMail As String
Dim strCC As String
Dim strBetreff As String
Dim strMailBody As String
Dim SigString As String
Dim rg As Range 'neu!!
strMail = „[email protected]“
strCC = „[email protected]“
strBetreff = „Achtung!! Meßmittel muss zur Kalibrierung“
strMailBody = „Sehr geehrter Herr XYZ das Meßmittel mit der Identnummer xyz muss zur Kalibrierung“
Set rg = Intersect(Sheets(Prüfmittel).Columns§, Sheets(Prüfmittel).UsedRange) 'Ggf. hier das Tabellenblatt anpassen
If Not rg Is Nothing Then ’ Sind in Spalte D Markierungen vorhanden?
For Each rg In rg 'Wenn ja, dann abarbeiten
'Wenn Zelle nicht leer ist, dann gleiche Zeile, Spalte A zum Emailtext zufügen
If Not IsEmpty(rg.Value) Then strMailBody = strMailBody & rg.Offset(0, -3).Text & vbCrLf
Next rg
End If
Call SendeMail(strMail, strCC, strBetreff, strMailBody)
End Sub
jetzt meine Liste:
Was muss ich hier ändern? oder wie komme ich zum gewünschten Resultat?
Danke schon einmal für deine Hilfe.
