E Mail aus Excel verschicken + Adressen einlesen

Sub Email() ThisWorkbook.SaveAs "P:...." Set MyOutApp = CreateObject("Outlook.Application") Set MyMessage = MyOutApp.CreateItem(0) With MyMessage While ThisWorkbook.Worrksheets("E-Mail Adressaten").Cells(i, 2) "" .To = ThisWorkbook.Worrksheets("E-Mail Adressaten").Cells(i,2) i = i + 1 Wend .Subject = "hier der Betreff" .Body = "Mein Text" .Attachments.Add "P:...." .Display End With Set MyOutApp = Nothing Set MyMessage = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim olApp As Object Dim olOldBody As String Rem Email erstellen Set olApp = CreateObject("Outlook.Application") For i = 1 To 30 Step 1 'Hier kannst ja xlrow up oder so machen Application.ScreenUpdating = False With olApp.CreateItem(0) .GetInspector.Display olOldBody = .htmlBody .To = Sheets("NAME").Cells(i, 2) .Subject = "Dein Titel" .Body = "Dein Text" .Attachments.Add "whatever" .Send End With Next i

Sub a() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim Ws As Worksheet: Set Ws = Wb.Worksheets("E-Mail Adressaten") Dim MyOutApp As Object, MyMessage As Object Dim c As Range, Adressen$ Wb.SaveAs "Dateiname" Set MyOutApp = CreateObject("Outlook.Application") With Ws For Each c In .Range("B1:B" & .Cells(.Rows.Count, "B").End(xlUp).Row) Adressen = Adressen & c.Text & ";" Next c Adressen = Left(Adressen, Len(Adressen) - 1) Set MyMessage = MyOutApp.CreateItem(0) With MyMessage .To = Adressen .Subject = "Betreff" .Body = "Mein Text" .Attachments.Add "Dateiname" .Display End With End With Set Wb = Nothing: Set Ws = Nothing Set MyOutApp = Nothing: Set MyMessage = Nothing Set c = Nothing End Sub

so ähnlich hab ich es auch gemacht und es funktioniert.
Hier mein Code:

Sub Email()
ThisWorkbook.SaveAs ".."
Dim i As Integer
Dim k As String
Dim t As String
Dim ii As Integer
Dim kk As String
Dim wb As String
Dim ws As String
i = 4
ii = 4
t = ";"
wb = ".."
ws = "E-Mail Adressaten"
With Workbooks(wb).Worksheets(ws)
k = .Cells(3, 2)
While .Cells(i, 2)  ""
k = k & t & .Cells(i, 2)
i = i + 1
Wend
kk = .Cells(3, 3)
While .Cells(ii, 3)  ""
kk = kk & t & .Cells(ii, 3)
ii = ii + 1
Wend
End With
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = k                                                                 'Hier kommt der Empfä _
nger
.cc = kk                                                                   'Hier die Adressen  _
fürs cc
.Subject = "hier der Betreff"                                              'Hier der Betreff
.Body = "Mein Text"                                                        'Hier dein E-Mail  _
Text rein
.Display
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub

Jetzt hab ich leider anscheinend noch ein Problem.
Mir wurde gesagt wenn man bei dem Outlookfenster, dass sich öffnet auf senden klickt, dass die E Mail nur im Ordner Absenden landet.
Weißt du zufällig warum das so ist oder was da helfen könnte?
Vielen dank aber schon mal für deinen Rat. :)

Beliebteste Forumthreads (12 Monate)

E Mail aus Excel verschicken + Adressen einlesen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E Mail aus Excel verschicken + Adressen einlesen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread