Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1664to1668
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

Mail Opjekt

Mail Opjekt
26.12.2018 09:25:51
J.Hass
Hallo
Ich benötige Hilfe.
Wer kann mir den Code so Umschreiben das dieser auf Mozilla Thunderbird läuft?
Private Sub CommandButton7_Click()
Dim OutApp As Object, Mail As Object, i
Dim Nachricht
' nachfolgend den gewünschten Tabellenbereich einstellen
Range("ah2:ao64").Select
Selection.Copy
' Öffnen der Mail
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.Subject = "Betrefftext"
.To = " " 'Mail Adresse
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
'Kurz warten, damit die Mail Zeit zum Öffnen hat
Application.Wait (Now + TimeValue("0:00:05"))
' Dann die Zwischenablage einfügen
'Application.SendKeys ("%bi") ' im Menü BEARBEITEN (Alt-B) das e-I-nfügen wählen
'Application.SendKeys ("^v") ' Strg-V Anweisung ist die 2.Möglichkeit statt Alt-B + I
End Sub

Gruf JoHa

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

Betreff
Datum
Anwender
Anzeige
AW: Mail Opjekt
26.12.2018 09:45:28
Sepp
Hallo J.,
das geht nicht! Thunderbird stellt kein Object-Model zu Verfügung auf das man per VBA zugreifen kann. Das geht nur per Shell und SendKeys, Beispiele findest du im web, oder du benutzt CDO das keinen Klient benötigt.
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Mail Opjekt
26.12.2018 10:04:53
J.Hass
Hallo Seep
Danke für die Antwort.
Gruß JoHa

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige