Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel Zwischenablage per VBA in Outlook Textfeld

Excel Zwischenablage per VBA in Outlook Textfeld
18.08.2005 08:04:20
TOM
Guten Morgen zusammen
Ich möchte gerne die Excel-Zwischenablage per VBA in das Outlook Textfeld einfügen und versenden.
Hat mir jemand einen Codeansatz?
Besten Dank für einen Tip
Gruss
TOM

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Zwischenablage per VBA in Outlook Textfe
18.08.2005 09:55:29
Ramses
Hallo
was meinst du mit "Outlook Textfeld" ?
Gruss Rainer
AW: Excel Zwischenablage per VBA in Outlook Textfe
18.08.2005 10:59:02
TOM
Hallo Rainer
Ich meine das Feld wo Text geschrieben wird siehe:
Userbild
Gruss
TOM
AW: Excel Zwischenablage per VBA in Outlook Textfe
18.08.2005 11:43:33
Ramses
Hallo
Bin ich Hellseher ?
Das ist der "Body" (nach Nomenklatur)
An, CC und BCC sind eben auch Textfelder
Schau mal hier vorbei
http://www.office.gmxhome.de/_excel_outlook.htm#Serienmail_ohne_Attachment
Das ist ein komplettes Beispiel
Gruss Rainer
Anzeige
AW: Excel Zwischenablage per VBA in Outlook Textfe
18.08.2005 11:52:47
TOM
Hallo Rainer
Nein natürlich bist Du kein Hellseher aber ich wusste nicht wie man dem Feld sagt....Sorry.
Besten Dank für Deinen Tip ich werde es ausprobieren.
Guten Appetit und Gruss
TOM
AW: Excel Zwischenablage per VBA in Outlook Textfe
18.08.2005 13:44:03
TOM
Hallo Rainer
Ich habe die Beispiele angeschaut aber leider geht das mit der Excel-Zwischenablage einfügen im Outlook nicht. Habe etwas probiert aber eben....

Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer, rngBereich As Range
Dim Nachricht
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Set rngBereich = Range("A4:H5")
rngBereich.Copy
With Nachricht
.To = Cells(2, 1) 'Adresse
.Subject = Cells(2, 3) 'Betreffzeile
.Body = rngBereich.PasteSpecial(xlAll)
'Cells(2, 4) & vbCr & vbCr & strBereich _
'& vbCr & vbCr & Cells(2, 5) 'Sendetext
.Display
SendKeys "%s", True
'.Send
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
End Sub

Gruss
TOM
Anzeige
AW: Excel Zwischenablage per VBA in Outlook Textfe
TOM
Habe nochmals gehackt aber ich komme einfach nicht weiter....
Wäre sehr froh wenn mir da jemand helfen könnte!!!!!
Excel-Zwischenablage einfügen im Outlook-Mail Body nicht. Habe etwas probiert aber eben....

Sub Excel_Serienmail_via_Outlook_Senden()
Dim OutApp As Object, Mail As Object
Dim i As Integer, rngBereich As Range
Dim Nachricht
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
Set rngBereich = Range("A4:H5")
rngBereich.Copy
With Nachricht
.To = Cells(2, 1) 'Adresse
.Subject = Cells(2, 3) 'Betreffzeile
.Body = rngBereich.PasteSpecial(xlAll)
'Cells(2, 4) & vbCr & vbCr & strBereich _
'& vbCr & vbCr & Cells(2, 5) 'Sendetext
.Display
SendKeys "%s", True
'.Send
End With
'Variablen zurücksetzen sonst geht es nicht
Set OutApp = Nothing 'CreateObject("Outlook.Application")
Set Nachricht = Nothing 'OutApp.CreateItem(0)
End Sub

Gruss
TOM
Anzeige
AW: Excel Zwischenablage per VBA in Outlook Textfe
19.08.2005 13:59:49
Ramses
Hallo
um die zwischenablage zu versenden musst du folgenden Code verwenden
Sub Send_Message_via_Clipboard()
    Dim myOutApp As Object, myMessage As Object
    'Verweis auf "Microsoft Forms 2.0 Object Library" (..\system32\FM20.DLL) aktivieren !!
    'sonst geht es nicht
    'Dataobject wird gebraucht wegen der Zwischenablage
    Dim myClpObj As DataObject
    Set myClpObj = New DataObject
    Set myOutApp = CreateObject("Outlook.Application")
    Set myMessage = myOutApp.CreateItem(0)
    With myMessage
        .To = "irgendwer@irgendein-provider.de"
        .Subject = "Betreffzeile Header"
        'Zwischenablage wird eingefügt
        myClpObj.GetFromClipboard
        .body = myClpObj.GetText(1)
        'Hier wird die Mail angezeigt
        .Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        '.Send
    End With
    Set myOutApp = Nothing
    Set myMessage = Nothing
End Sub

Du musst das entsprechenden natürlich vorher manuell kopieren
Gruss Rainer
Anzeige
AW: Excel Zwischenablage per VBA in Outlook Textfe
19.08.2005 14:37:24
TOM
Hallo Rainer
Besten Dank für Deine schnelle Hilfe, es hat funktioniert.
Noch eine Frage: Wenn ich in Excel mit Ctrl+C einen Bereich in die Zwischenablage kopiere dann kann ich das mit allen Farben und Formatierungen in Outlook wieder einfügen. Ist das per VBA nicht möglich:
Userbild
Besten Dank
Gruss
TOM
Letzte Antwort...
19.08.2005 14:48:16
Ramses
Hallo
Das ganze hätten wir uns sparen können, wenn du das von Anfang gesagt hättest.
Das ist mein letzter Beitrag
Sub Send_OriginalRange_from_Excel()
    'Getestet unter Office XP
    'Ohne Select geht es nicht :-))
    Range("b15:i25").Select
    'Das anzeigen der Envelope Commandbar ist unabdingbar
    ActiveWorkbook.EnvelopeVisible = True
    'Nun werden die Adressen vergeben
    With ActiveSheet.MailEnvelope
        .Introduction = "Das ist der Einleitungstext." & vbCrLf & "mit einer zweiten Zeile"
        .Item.To = "irgendwer@irgendwo.de"
        .Item.Subject = "Die aktuellen Daten"
        .Item.Send
    End With
End Sub

Gruss Rainer
Anzeige
AW: Letzte Antwort...
19.08.2005 15:14:01
TOM
Hallo Rainer
Bitte tausendmal um Entschuldigung, das wollte ich nicht!!
Das es so einfach geht hatte ich nicht gewusst. In meiner Unwissenheit verfolgte ich den komplizierteren Weg dabei geht es ja viel einfacher.
Vielen herzlichen Dank für Deine Mühe und ich hoffe, dass Du mir wieder mal hilfst.
Besten Dank und nichts für Ungut
Gruss
TOM

65 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige