E-Mail aus excelsheet versenden

[Imicklife]

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ß

[RPP63]

Moin!
Wenn es um Outlook geht:
http://www.rholtz-office.de/outlook/emai...llen_teil1
Um ein Datum (heute) mittels VBA zu finden, nutze die Range.Find-Methode.
Auch da quillt das Netz vor Fundstellen über, insofern wirst Du nicht richtig gesucht haben!
http://de.lmgtfy.com/?q=vba+datum+in+tabelle+finden

Gruß Ralf

[Imicklife]

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?

[Wastl]

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.

[Imicklife]

Hallo,

mache ich gerne - die Datei ohne Makros.

VG iMicklife

[RPP63]

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

[Imicklife]

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

[RPP63]

Ich bin völlig tiefenentspannt …

Du hast Post …

[Imicklife]

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

[Imicklife]

Hallo,

Mache das Thema zu - hier konnte man mir leider nicht weiterhelfen. Habe es aber dennoch alleine mit Hilfe des Webs hinbekommen...

Danke trotzdem