Microsoft Excel

Herbers Excel/VBA-Archiv

Mail Exchange Server

Betrifft: Mail Exchange Server von: Regina
Geschrieben am: 26.06.2008 11:45:16

Hallo zusammen,

habe einen Code aus dem Forum, mit dem ich Serienmail per Excel über Outlook versende. Hat immer gut geklappt. Jetzt wurde bei uns in Betrieb auf MS Exchange Server umgestellt .

Jetzt funktioniert das Programm nicht mehr.

Hier mein Code:

Sub Excel_Workbook_via_Outlook_Senden()

Dim Nachricht As Object, OutApp As Object
Dim AWS As String
Dim ende As Long
Dim i As Long
ende = Range("A65530").End(xlUp).Row
'start der SChleife
For i = 2 To ende
If Cells(i, 15) <> "" And _
    Cells(i, 15) <> Cells(i - 1, 15) Then
Set OutApp = CreateObject("Outlook.Application")
'Set Nachricht = OutApp.CreateItem(olMailItem)
'Aktive Arbeitsmappe wird als Mail gesendet
AWS = ActiveWorkbook.FullName
Set Nachricht = OutApp.CreateItem(0)

With Nachricht
    .To = Cells(i, 15)
    'Betreff Zeile
    .Subject = "Fehlerliste " & Date & Time
    .Attachments.Add AWS
    .Attachments.Add "G:\201.2_BUHA\FEHLTERM.doc"   'Fehlererklärungsliste wird mit gesendet
    'Text in der Email
    .Body = "TEXT  "
    'Hier wird die Mail nochmals angezeigt
   ' .Display
    'Hier wird die Mail gleich in den Postausgang gelegt
   .Send
End With
'Outlook schliessenOutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
'outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:08"))
End If
Next
End Sub



Weiß jemand Rat??

Schon mal Vielen Dank vorab

Gruß Regina

 

Beiträge aus den Excel-Beispielen zum Thema "Mail Exchange Server"