Emailadrssenliste wird nicht vollständig übernomme
02.09.2015 14:51:43
Lisa
Ich versende aus Excel heraus eine Mail und suche mir den Adressaten aus einer Tabellenzelle mittels u.g. Codes.
Private Sub CommandButton5_Click()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
AWS = Environ("USERPROFILE ") & "\" & Sheets(1).Range("A1") & ".xls"
Dim i As Integer
Dim iZeile As Integer
Dim Empfänger As String
iZeile = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To iZeile
Empfänger = Empfänger & ";" & Sheets("Tabelle2").Cells(i, 3)
Next i
ThisWorkbook.SaveCopyAs AWS
Application.Visible = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Empfänger
'.Cc = ""
.Subject = "bitte um Bearbeitung " & Sheets(1).Range("C63") & " " & Sheets(1).Range("H3") _
& " " & Sheets(1).Range("F4") & " Test.xls"
.Attachments.Add AWS
.Body = "bitte um Bearbeitung!" & vbCrLf & ""
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Leider bekomme ich aber nicht mehr als zwei in das Adressfeld.
Was habe ich falsch gemacht bzw. nicht beachtet?
Hat hier jemand eine Idee und kann helfen?
LG Lisa