Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Formular um eMails mit Excel schreiben

Formular um eMails mit Excel schreiben
01.05.2006 09:34:30
Vera
Hallo Forum,
seit längerer Zeit befasse ich mich mit dem Thema: Excel sendet eMails.
Excel stellt einen HTML-eMailtext, aus mehreren Zellen zusammen.
Nun möchte ich die eMail, bevor Sie an ein eMailprogramm übergeben wird noch mal durchlesen und evtl. korrigieren.
Dazu die Frage(n):
- Hat oder kennt jemand ein Formular mit HTML-Text Feld?
- Hat oder kennt jemand ein Formular in dem bis zu 2000 Zeichen Text editiert werden kann?
- Oder hat oder kennt jemand ein Formular mit zu eMail passenden Feldern?
Liebe Grüße
Vera

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formular um eMails mit Excel schreiben
01.05.2006 10:00:05
Josef
Hallo Vera!
Warum lässt du dir die Mail nicht einfach im Mailprogramm anzigen?
Das ist doch die einfachste Lösung!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Formular um eMails mit Excel schreiben
01.05.2006 20:21:29
Vera
Hallo Sepp,
ich möchte automatisch mit verschiedenen Absender-Konten versenden. Und das geht mit Outlook und Konsorten nicht.
Ich habe den MailMotor gefunden den ich von aussen ansteuern kann. Dieses Programm hat aber leider keine Oberfläche ...
Also brauche ich zum Korrekturlesen ein Formular.
Liebe Grüße
Vera
Anzeige
AW: Formular um eMails mit Excel schreiben
01.05.2006 23:40:15
Josef
Hallo Vera!
Da fällt mir im Moment nur ein, den HTMLBody im IE zu öffnen, und bei Bedarf
von dort mit FrontPage zu bearbeiten.
Auf Outlook bezogen, könnte das so aussehen.
(Statt an Outlook must du den String dann halt an deinen MailMotor übergeben!)
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" ( _
  ByVal dwMilliseconds As Long)
Sub test()
Dim strHTMLBody As String, strFile As String, strTmpPath As String, strTmp As String
Dim objIE As Object, objOutApp As Object, objOutMail As Object

'Temporäres Verzeichnis ermitteln
strTmpPath = Environ("TEMP")

'Pfad für die Temporäre HTML-Datei
strFile = strTmpPath & "\TempBody.html"

'TestBody
strHTMLBody = "<hr><br>"
strHTMLBody = strHTMLBody & "<b>Das ist ein HTML-eMail-Text,</b><br>"
strHTMLBody = strHTMLBody & "<b>der zur Ansicht mit dem IE geöffnet wird.</b><br><br>"
strHTMLBody = strHTMLBody & "<b>Aus dem IE kann er z.B. Mit FrontPage bearbeitet werden!</b><br>"
strHTMLBody = strHTMLBody & "<b>Nach dem Bearbeiten und Speichern, steht der Text in geänderter Form zur Verfügung!</b><br><br><br>"
strHTMLBody = strHTMLBody & "<i>Josef Ehrensberger</i><br><br><hr>"

'HTML-Datei erstellen
Close #1
Open strFile For Output As #1
Print #1, strHTMLBody
Close

'IE-Application erstellen
Set objIE = CreateObject(Class:="InternetExplorer.Application")

'IE starten und konfigurieren
With objIE
  .Navigate strFile
  .StatusBar = False
  .MenuBar = False
  .Toolbar = True
  .Visible = True
  .Resizable = False
  .Offline = True
  .Width = 800
  .Height = 600
End With

On Error Resume Next
'Warten bis IE geschlossen wird
Do
  Sleep 1000
  DoEvents
  objIE.Refresh
Loop While objIE.Visible = True

objIE.Quit
On Error GoTo 0
Set objIE = Nothing

strHTMLBody = ""

'Geänderten Text aus der Datei zurück in den String schreiben
Close #1
Open strFile For Input As #1
Do While Not EOF(1)
  Input #1, strTmp
  strHTMLBody = strHTMLBody & strTmp
Loop
Close #1
'Temporäre Datei löschen
Kill (strFile)

'Ab hier, statt OutLook, dein eMail-Code

Set objOutApp = CreateObject("Outlook.Application")

Set objOutMail = objOutApp.CreateItem(0)

With objOutMail
  .To = "try.to@guess.it"
  .Subject = "Dein Betreff"
  .htmlBody = strHTMLBody
  'Anhang einfügen!
  '.Attachments.Add ("C:\test.txt")
  .Display 'oder .Send
End With

Sleep 5000 'warten auf OutLook

Set objOutMail = Nothing

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige