folgendes Szenario:
Ich habe ein Tabellenblatt in welches unregelmäßig untereinander Daten eingetragen werden. Nun soll nach Prüfung des Datums in Spalte B - wenn dieses >Heute< entspricht - automatisch eine Email an einen Verteiler generiert werden und der Inhalt in selbiger Zeile aus Spalte F per Mail versandt werden.
Im Betreff sollte das Datum stehen mit Zusatztext "Achtung neue Aktion"
Im Textfeld dann: Sehr geehrte Damen und Herren,
es wurde eine Aktion mit "Inhalt aus Spalte F" zur Bearbeitung eingestellt.
dieses ist eine automatisch generierte Mail...
Hab die Suchfunktion hier schon genutzt, aber leider kein Ergebnis bzw. vergleichbare Thematik gefunden
Danke u. Gruß
Das hilft mir leider nicht weiter,
dachte an eine Codeunterstützung. Wie bekomme ich es hin, im Sheet in die letzte Zeile mit Einträgen in Zellen zu springen und den Wert aus Spalte G via Outlook zu versenden?
Hi,
gib uns doch bitte eine Beispieldatei (kein Bild)
ohne eine solche Datei müsste ich aus deinen spärlichen Angaben was stricken, und dass sieht dann vielleicht nicht so aus, wie du es verwenden kannst, und ich habe den ganzen Aufwand umsonst vergeblich getan.
Hallo,
mache ich gerne - die Datei ohne Makros.
VG iMicklife
(24.01.2018, 12:21)Imicklife schrieb: [ -> ]Das hilft mir leider nicht weiter,
dachte an eine Codeunterstützung.
Meine Links enthalten Code-Beispiele!
Wenn Du eine Lösung willst, ohne auch nur einen Finger zu krümmen, bin ich hier raus!
Wenn Du hingegen einen Code aufgrund meiner Tipps erstellt hast, der
nicht ganz das macht, was Du erwartest, gebe ich gerne weitergehende Tipps.
Für Komplettlösungen ohne Vorleistung sind hier andere zuständig. :21:
Gruß Ralf
Hallo Ralf,
Komplettlösungen - erwarte ich hier auch nicht, die gepostete Datei enthält in Ihrer eigentlichen Struktur sehr viele Codes. Das Versenden von bestimmten Zellinhalten via Mail wäre sozusagen nur das i- Tüpfelchen, um bestimmte Abteilungen innerhalb eines Netzwerkes auf eine neue Aktion aufmerksam zu machen. Zur Veranschaulichung habe ich Wunsch die Datei, welche nur eine Kopie eines Sheets aus einer größeren Arbitsmappe ist, gepostet.
Also bleib entspannt - alles ist freiwillig...deine Tips bringen mich leider nicht weiter.
Danke trotzdem u. Gruß imicklife
Ich bin völlig tiefenentspannt …
Du hast Post …
Hallo zusammen,
habe den Code zusammengeflickt, aber bekomme bei Rows(x, 7).copy immer die Debuganzeige. Was muss ich berichtigen?
Code:
Public Sub EinfacheMailMitAnhang()
Dim x As Long
Dim olApp As Object
Dim AWS As String
Dim olOldbody As String
x = Range("A65536").End(xlUp).Row
Rows(x).Select
'Rows(x, 7).Select
'Rows(x, 7).Copy
Range("AA1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldbody = .htmlBody
.To = "testserver.de"
.Subject = "Aktion Störungsbearbeitung - neuer Eintrag"
.htmlBody = "Hallo!<br><br>Anbei gewünschte Informationen.<br><br>" & _
"Ihre Auftragsnummer lautet " & Range("AA1") & _
"<br><br>diese Email wurde zur Informationsweitergabe automatisch erstellt,<br><br><br>" & olOldbody
' .Attachments.Add AWS
End With
End Sub
Hallo,
Mache das Thema zu - hier konnte man mir leider nicht weiterhelfen. Habe es aber dennoch alleine mit Hilfe des Webs hinbekommen...
Danke trotzdem