Ordner erstellen

Forumthread: Ordner erstellen

Ordner erstellen

28.01.2025 22:04:03

Max

Hallo zusammen,

ich möchte aus Excel eine E-Mail generieren.

Der Betreff steht in der Spalte Z

Der Text soll aus mehrere Spalten zusammen gestellt werden

++++++++++++++++++
Sehr geehrte Partner,

anbei die nächste Abholung ab ( Spalte N )

Die Abholadresse lautet : ( Spalte M )

usw...

+++++++++++++++++

wer kann mir helfen ?

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner erstellen

28.01.2025 22:23:27

Onur
AW: Ordner erstellen

28.01.2025 23:17:44

ralf_b
AW: Ordner erstellen

29.01.2025 21:21:52

Udo D
AW: Ordner erstellen

28.01.2025 22:26:12

Onur

AW: Ordner erstellen

28.01.2025 22:23:27

Onur

Spalte Z und ebenso die zwei anderen genannten Spalten, haben je über 1 Million Zellen. Welche meinst du also? Und an wen soll sie gechickt werden ?

AW: Ordner erstellen

28.01.2025 23:17:44

ralf_b

wer kann mir helfen? Du dir selbst. Schon mal probiert? Das Netz ist voll von Lösungsansätzen. Da kannst du dir aussuchen was für dich passend ist bevor du hier ein paar Brocken ins Forum wirfst, die mehr Fragen aufwerfen als Lösungsansätze generieren.

AW: Ordner erstellen

29.01.2025 21:21:52

Udo D

Hallo Max,
Tipp hierzu, du solltest dich mal mit VBA beschäftigen und den Einstieg wagen,
dort angekommen kannst du dann - mit gleichzeitiger Recherche via VBA E-Mails erstellen,
Dazu gibts schon recht viel im Netz zu VBA & Outlook aus Excel heraus usw.

Eine Prozedur von meinen Anwendungen wäre zB. folgender Code in einem normalen Modul :

Sub EMail_starten() ' 01

' Hinweis bzgl. DataObject :
' Sollte DataObject Fehler liefern - muss in den Einstellungen noch die (FM20.dll) aktiviert werden !
' Hier im Editor oben - register Extras - Verweise ... im aufgehenden Fenster auf ( rechter Button )
' " durchsuchen " klicken und im Suchfeld " FM20.dll " eingeben, es muss dieser Eintrag dann mit einem
' Hacken versehen werden, dann sollte der Fehler behoben sein und die Zuweisung gefunden werden.

Dim objDataObject As DataObject
Set objDataObject = Nothing
Set objDataObject = New DataObject

objDataObject.SetText Cells(ActiveCell.Row, 41).Text
objDataObject.PutInClipboard

ChDrive Left(Sheets(2).Range("E21").Text, 2) ' Bzgl. der Shell Adresse :
' Bei mir steht auf Tabellenblatt 2 in Zelle E21 der vollständige Pfad incl. der exe drinn also zB.
' In TAB2 - E21 als Text : C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.exe

Dim AppID As Integer
AppID = Shell("" & Sheets(2).Range("E21").Value, vbNormalFocus)
' AppID = Shell("" & Sheets(2).Range("E21").Value & " /e, ", vbNormalFocus) ' 2. VAR. falls erste nicht tut

' oder du kannst es hier im Editor auch direkt angeben, das wäre dann:
' AppID = Shell("C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.exe", vbNormalFocus)

' neue Email starten , Empfänger , Betreff eintragen , evtl. gesetzte Vorlagen löschen, Textfeld leeren
'
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Cells(ActiveCell.Row, 37).Value ' Empfänger EMail steht bei mir in Spalte 37
.Subject = Cells(ActiveCell.Row, 22).Value ' Betreff in Spa 22 usw.
.body = Cells(ActiveCell.Row, 23).Value & Chr(13) & Cells(ActiveCell.Row, 24).Value
.Display
'.Send 'Hiermit wird die Mail gesendet wenn Zeile aktiv
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub

Dann verknüpfst du das mit ner Schaltfläche und startest deine EMail.
Die grundsätzlichen Parameter, wie der Pfad zu deinem Mailprg, die EXE Bezeichung, dann die Bezugsspalten wo deine
jew. Daten für die enstpr. Stellen stehen musst du halt noch an deine Architektur anpassen.

Viel Erfolg
Udo

AW: Ordner erstellen

28.01.2025 22:26:12

Onur

Und wieso lautet der Titel "Ordner erstellen" ?
Im Text steht nirgendwo etwas von einem Ordner.

Forumthread: Ordner erstellen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread