Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1152to1156
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
Inhaltsverzeichnis

thunderbird und excel

thunderbird und excel
jhaustein
hallo gemeinschaft
habe in eine excel sheet in der ersten spalte folgende daten
cells(1,1) - email adresse
cells(2,1) - betreff
und dann in den zellen 3 - 40 informationen, die ich auch alle in den body reinhaben möchte
auch jeweils untereinander
bekomme das leide nicht hin
email adresse und subject klappt nur ich weiss nicht, wie ich den weiteren text in den bodybereich bekommen soll

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

Betreff
Benutzer
Anzeige
htmlBody = Cells(3, 1) & "<br>" & Cells(4, 1) & ..
Matthias
Hallo
...usw.
thunderbird habe ich nicht auf meinem Rechner. Kann das also nicht testen.
Aber evtl. funktioniert es ja genau wie im Outlook
Gruß Matthias
AW: htmlBody = Cells(3, 1) & "<br>" & Cells(4, 1) & ..
27.04.2010 08:46:36
jhaustein
danke werde es gleich prbieren
habe kein Thunderbird, Vorschlag mit Shell...
27.04.2010 08:57:34
Tino
Hallo,
wenn es da nicht wie in Outlook funktioniert, kannst Du mal dies versuchen.
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
      "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
      As String, ByVal lpFile As String, ByVal lpParameters _
      As String, ByVal lpDirectory As String, ByVal nShowCmd _
      As Long) As Long



Sub Show_Shell_Mail()
Dim strBody$, strMailTo$, strSubject$
Dim LRow As Long

Const SW_SHOW = 5
Const mcCrLf = "%0D%0A"

'Body 
LRow = Cells(Rows.Count, 1).End(xlUp).Row
If LRow > 3 Then
  strBody = Join(Application.Transpose(Range("A3", Cells(LRow, 1)).Value2), mcCrLf)
ElseIf LRow = 3 Then
  strBody = Cells(3, 1)
Else
  Exit Sub
End If

strMailTo$ = Cells(1, 1)
strSubject$ = Cells(2, 1)

'E-Mail anzeigen 
ShellExecute vbNull, _
        "open", _
        "mailto:" & strMailTo & _
        "&subject=" & strSubject$ & _
        "&body=" & strBody, _
        vbNullString, vbNullString, _
        SW_SHOW
End Sub
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige