Office: (Office 2010) Zellinhalt senden

Helfe beim Thema Zellinhalt senden in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Zusammen, Hat evtl. jemand einen kleinen Codeschnippsel über? ich versuche aus einer Tabelle raus Mails zu sednen. Dabei soll lediglich der... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Keetmanshoop, 20. August 2011.

Seite 1 von 2

KEETMANSHOOP

Keetmanshoop

Zellinhalt senden

Hallo Zusammen, Hat evtl. jemand einen kleinen Codeschnippsel über? ich versuche aus einer Tabelle raus Mails zu sednen. Dabei soll lediglich der Inhalt einer markierten Zelle an Outlook übergeben werden. Der Titel der Mail steht dabei in der selben Zeile aber eine eienr anderen Spalte und soll auch noch in den Mailtitel übergeben werden.
1) Ist sowas möglich und wenn ja wie?
2) Kann man den Zellinhalt evtl. auch formatiert übergeben? Mit einem Zeilenumbruch davor und Zellinhalt in Fett?
LG F

:)

Keetmanshoop, 20. August 2011

#1
MUMPEL

mumpel

Hallo!

zu 1.: Möglich ist alles. Über die Forensuche findest Du zahlreiche Beispiele.
zu 2.: Nicht ohne HTML-Kenntnisse, und auch nur mit HTML-Mails. Bei Nur-Text-Mails ist das nicht möglich. Und wenn der Empfänger keine HTML-Mails anzeigen darf, sondern nur Text, dann nützt die Formatierung ebenfalls nichts.

Gruß, René

mumpel, 22. August 2011

#2
KEETMANSHOOP

Keetmanshoop

Dank dir! Gesucht hatte ich schon eine weile. Und nachgebastelt habe ich auch schon einiges, aber immer die falschen Sachen

Keetmanshoop, 22. August 2011

#3
PIT987

Pit987

Zellinhalt senden

Hast Du WORD?

Wenn ja, kannst Du über diesen Umweg aus EXCEL heraus mit der Funktion SERIENBRIEF Emails generieren, bei denen Du auch die Eigenschaften der Schrift vorgeben kannst.

Viel Erfolg

Pit987, 22. August 2011

#4
KEETMANSHOOP

Keetmanshoop

Word habe ich zwar, würde esaber gerne in Excel lösen. Kann mir bitte jemand einen passenden Eintrag hier nenen. Ich such mich noch wund ...

Keetmanshoop, 23. August 2011

#5
KEETMANSHOOP

Keetmanshoop

Habe ich doch gesagt, dass man hier nix findet zu dem Thema, oder wie soll ich die Reaktionen deuten?

Keetmanshoop, 25. August 2011

#6
WAHLO

Wahlo

Excel Automation - Ron de Bruin
Hallo,

vielleicht hilft dir der Link...
Gruß
Wahlo

Wahlo, 25. August 2011

#7
KEETMANSHOOP

Keetmanshoop

Zellinhalt senden

Danke aber das hilft nicht!" ich will ja nicht die Tabelle oder auswahl an eine Mail anhängen, sondern den Zellinhalt in den Mailbody kopieren.

Keetmanshoop, 25. August 2011

#8
KEETMANSHOOP

Keetmanshoop

So! Ich habe da was Brauchbares gefunden. S. U.
Jetzt habe ich aber noch ein Prpblem: Der Empfänger der Mail adresse ist nicht statisch, sonden steht in der ersten Zelle meiner Markierung. Gibt es da auch einen Weg?

Code:

Public Sub TableToMail()
Dim objOutlook As Object
Dim objMail As Object
If MsgBox("Soll der markierte Bereich versendet werden?", vbYesNo, "Versenden") = vbYes Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "mail@mail.de"
.Subject = "Änderungen in der Zubehörtabelle vom " & CStr(Date)
.HTMLBody = RangeToHTML(ActiveSheet, Selection)
.Display 'nur Anzeigen
.send 'direkt senden
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function RangeToHTML(objSheet As Worksheet, objRange As Range) As String
Dim strFilename As String
strFilename = Environ$("TEMP") & "/" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".htm"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename, _
Sheet:=objSheet.Name, _
Source:=objRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
RangeToHTML = CreateObject("Scripting.FileSystemObject"). _
GetFile(strFilename).OpenAsTextStream(1, -2).ReadAll
Kill strFilename
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Keetmanshoop, 15. September 2011

#9
TOTTI74

totti74

HI!
ungetestet:

Mail.To = ActiveCell.EntireRow.Cells(1, 1).Value

Gruß
Totti

totti74, 15. September 2011

#10
KEETMANSHOOP

Keetmanshoop

super cool. danke. das wars. wenn du mir jetztnoch sagst, wie ich den inhalt in der 3 zelle der markierung in fettschrift in den mailbody übergebe, bist du mein held

Keetmanshoop, 15. September 2011

#11
KEETMANSHOOP

Keetmanshoop

Super! Bin ein Stück weiter! Und habe jetzt folgenden Code:

Code:

Public Sub Auswahlsenden()
Dim objOutlook As Object
Dim objMail As Object
If MsgBox("Soll der markierte Bereich versendet werden?", vbYesNo, "Versenden") = vbYes Then
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ActiveCell.EntireRow.Cells(1, 1).Value '1 Zeile enthält Mailadresse
.Subject = "Titel der Mail" & CStr(Date) 'Titel der Mail
.HTMLBody = "Sehr geehrter Herr" & " " & ActiveCell.EntireRow.Cells(1, 2) & ActiveCell.EntireRow.Cells(1, 3).Value 'Zweite Zelle als Textinhalt der Mail
.display 'Mail nur Anzeigen Nicht senden
.ReadReceiptRequested = True
.Attachments.Add "D:\Dokument1.pdf" 'Anhang 1
.Attachments.Add "C:\Dokument2.pdf" 'Anhang 2
'.send 'direkt senden
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
End Sub

Private Function RangeToHTML(objSheet As Worksheet, objRange As Range) As String
Dim strFilename As String
strFilename = Environ$("TEMP") & "/" & Format(Now, "dd-mm-yyyy_hh-mm-ss") & ".htm"
ActiveWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename, _
Sheet:=objSheet.Name, _
Source:=objRange.Address, _
HtmlType:=xlHtmlStatic).Publish True
RangeToHTML = CreateObject("Scripting.FileSystemObject"). _
GetFile(strFilename).OpenAsTextStream(1, -2).ReadAll
Kill strFilename
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun probiere ich mich aber seit 2 Stunden daran, nach dem Inhalt von Zelle Zwei der Markierung, sprich nach dem Namen hinter Sehr geehrter Herr einen Zeilenumbruch einzufügen. Kann mir einer einen Tip geben?

Keetmanshoop, 15. September 2011

#12
INGGI

IngGi

Zellinhalt senden

Hallo Keetmanshoop,

Code:

.HTMLBody = "Sehr geehrter Herr" & "<br>" & ActiveCell.EntireRow.Cells(1, 2) & ActiveCell.EntireRow.Cells(1, 3).Value 'Zweite Zelle als Textinhalt der Mail
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

IngGi, 15. September 2011

#13
KEETMANSHOOP

Keetmanshoop

Mist! Jetzt bin ich fast fertig und habe noch ein Problem:
Wie bekomme ich es hin, dass meine im Outlook eingestellte Standart-Signatur unten angefügt wird?????? Ich habe das INternet schon durch"probiert"

Keetmanshoop, 16. September 2011

#14
LUSCHI

Luschi

Hallo ,

hier mal einem passenden Vba-Code dazu (funktioniert nur mit Outlook 2007 & 2010
Code:

Sub InsertSig_inEMail(strSigName As String)
Dim objItem As Object

'requires a project reference to the Microsoft Outlook library
Dim outl As Outlook.Application
Dim objInsp As Outlook.Inspector

'requires a project reference to the Microsoft Word library
'WinWord wird benötigt, um die Signatur am Ende der EMail einzufügen!!!
Dim objDoc As Word.Document
Dim objSel As Word.Selection

'requires a project reference to the Microsoft Office library
'wird benötigt, um die Outlook-Ribbon-Objekte anzusprechen
Dim objCB As Office.CommandBar
Dim objCBP As Office.CommandBarPopup
Dim objCBB As Office.CommandBarButton
Dim colCBControls As Office.CommandBarControls

'On Error Resume Next
Set outl = Outlook.Application
Set objInsp = outl.ActiveInspector
If Not objInsp Is Nothing Then
Set objItem = objInsp.CurrentItem
If objItem.Class = olMail Then
' editor is WordMail
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objSel = objDoc.Application.Selection
objSel.EndKey Unit:=wdStory
'bei Bedarf noch 1 oder mehrere 2 Leerzeilen einfügen
objSel.TypeParagraph
objSel.TypeParagraph
'bei Verwendung von '.HTMLBody' ist 'olEditorWord' Standard
Set objCB = outl.ActiveInspector.CommandBars("Signature MRU")

If Not objCB Is Nothing Then
Set colCBControls = objCB.Controls
End If
Else
'Commandbar 'Signature MRU' suchen
Set objCBP = Application.ActiveInspector.CommandBars.FindControl(, 3766)
If Not objCBP Is Nothing Then
Set colCBControls = objCBP.Controls
End If
End If
End If
If Not colCBControls Is Nothing Then
For Each objCBB In colCBControls
If objCBB.Caption = strSigName Then
'SignaturButton mit der übergebenen Bezeichnung per Vba drücken
objCBB.Execute
Exit For
End If
Next
End If
End If

Set objDoc = Nothing
Set objSel = Nothing
Set objInsp = Nothing
Set objItem = Nothing
Set objCB = Nothing
Set objCBP = Nothing
Set objCBB = Nothing
Set outl = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aufgerufen wird die Routine so:
Code:

.Display
'hier den Outlook-Signaturnamen angeben
InsertSig_inEMail "Meyerlein"
.Display
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß von Luschi
aus klein-Paris

Luschi, 16. September 2011

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Zellinhalt senden

Die Seite wird geladen...

Zellinhalt senden - Similar Threads - Zellinhalt senden
Teil des Zellinhaltes abfragen in VBA
in Microsoft Excel Hilfe
Teil des Zellinhaltes abfragen in VBA: Guten Tag, ich möchte in Zelle E1 den linken 4-stelligen Teil in Zelle A3 abfragen. Habs versucht mit IF (LEFT(R[2]C[-3],4) = "8396") then ... Else ... End If Wer kann...
Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe
in Microsoft Excel Hilfe
Arbeitsblätter ein- bzw ausblenden nach Zellinhalt geschützte Arbeitsmappe: Arbeitsblätter ein- bzw ausblenden nach Zellinhalt in einer geschützten Arbeitsmappe Hallo zusammen, dass habe ich bisher hinbekommen...wenn die Arbeitsmappe nicht geschützt ist dann geht es...
Zellinhalt als Datei im Notepad speichern
in Microsoft Excel Hilfe
Zellinhalt als Datei im Notepad speichern: Hallo Experten da komme ich nicht mehr weiter...... nur der Zellinhalt von zB. Zelle H3 (bis zu 10000 Zeichen, weder harte noch weiche Zeilenumbrüche sind zugelassen - eine Text- oder CSV-Datei...
Filtern nach Wert in Zellinhalt
in Microsoft Excel Hilfe
Filtern nach Wert in Zellinhalt: Hallo. In der angehängten Datei habe ich in "E2" ein Auswahlfeld. Abhängig von diesem Feld möchte ich, daß die Tabelle automatisch nach den Einträgen in den Zellen "F6" bis "F14" gefiltert wird....
VBA Hilfe für Zahlen eingeben und addieren + zellinhalt löschen
in Microsoft Excel Hilfe
VBA Hilfe für Zahlen eingeben und addieren + zellinhalt löschen: Hallo Leute ich brauche dringend Hilfe von einem VBA Spezialisten. Ich hoffe ihr seit mir nicht böse wenn ich sage das ich alles in der Datei beschrieben habe. Würde mich sehr freuen wenn jemand...
Zahlen eingeben und addieren + zellinhalt löschen
in Microsoft Excel Hilfe
Zahlen eingeben und addieren + zellinhalt löschen: Hallo Leute ich habe ein Problem. Würde gerne wissen ob einer eine Idee hat das mit VBA gelöst werden kann. In einer Tabelle sind werte eingegeben. Gutstücke , Ausschuss jeweils für Früh Spät und...
Anpassen von VBA Suche nach Zellinhalt
in Microsoft Excel Hilfe
Anpassen von VBA Suche nach Zellinhalt: Hallo zusammen, ich habe hier einen Code aus dem Netz etwas für meine bedürfnisse angepasst. Hier das was funktioniert: Sub Spalten_ausblenden() Dim Wiederholungen As Integer Dim Lohnart As...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden