AW: Mail per vba versenden geht nicht mehr
14.11.2014 10:03:40
Jürgen
Hi Thorsten,
Der Code ist recht lang, hier der Teil, der die E-Mail versenden soll.
Ich glaube aber nicht, dass Dir das weiterhilft, denn die Fehlermeldung kommt ja bereits
nach
Set objOutlook = CreateObject("Outlook.Application").
Wenn ich das entferne kommt die Fehlermeldung nach
Set objMail = objOutlook.CreateItem(0)
und wenn ich das entferne nach
Set olApp = CreateObject("Outlook.Application")
Der Code hat bisher ja auch einwandfrei funktioniert. Erst seit der Umstellung auf Window7 und Excel2010 kommt es zu der Fehlermeldung.
Sub E_MAIL()
Dim objOutlook As Object
Dim objMail As Object
Dim olApp As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
Set olApp = CreateObject("Outlook.Application") 'Wird wahrscheinlich nicht benötigt.
'E-Mail OHNE Anlage
If Anlagen_gesamt = 0 Then
With objMail
.To = E_Mail_Adresse 'Variable
'.Subject = "Protokolleintrag vom " & Datum & ", Projektnummer: " & Projektnummer & ", _
Projekt: " & Projekt
'.Body = "Hauptthema: " & Hauptthema & Chr(10) & "Punkt " & X & "." & Y & Chr(10) & " _
Status der Aufgabe: " & Status_Aufgabe & Chr(10) & "Status des Termins: " & Status_Termin & Chr(10) & "Priorität: " & Priorität & Chr(10) & Chr(10) & "Inhalt: " & Inhalt & Chr(10) & Chr(10) & Anhang
.Subject = "Projekt: " & Projekt & ", Vorgang: " & Hauptthema
.Body = "Protokolleintrag vom " & Datum & ", Projektnummer: " & Projektnummer & ", _
Projekt: " & Projekt & Chr(10) & "Hauptthema: " & Hauptthema & Chr(10) & "Punkt " & x & "." & Y & Chr(10) & "Termin: " & Termin & " / KW " & KW & Chr(10) & "Status der Aufgabe: " & Status_Aufgabe & Chr(10) & "Status des Termins: " & Status_Termin & Chr(10) & "Priorität: " & Priorität & Chr(10) & Chr(10) & "Inhalt: " & Inhalt & Chr(10) & Chr(10) & Anhang
'.Attachments.Add ThisWorkbook.FullName 'Die aktuelle Excel Datei
'.Attachments.Add NameAnlage1 'Eine beliebige Datei
'.Display 'Falls die Mail noch bearbeitet werden soll.
.Send
End With
End If
'E-Mail mit EINER Anlage
If Anlagen_gesamt = 1 Then
With objMail
.To = E_Mail_Adresse
'.Subject = "Protokolleintrag vom " & Datum & ", Projektnummer: " & Projektnummer & ", _
Projekt: " & Projekt
'.Body = "Hauptthema: " & Hauptthema & Chr(10) & "Punkt " & X & "." & Y & Chr(10) & " _
Status der Aufgabe: " & Status_Aufgabe & Chr(10) & "Status des Termins: " & Status_Termin & Chr(10) & "Priorität: " & Priorität & Chr(10) & Chr(10) & "Inhalt: " & Inhalt & Chr(10) & Chr(10) & Anhang
.Subject = "Projekt: " & Projekt & ", Vorgang: " & Hauptthema
.Body = "Protokolleintrag vom " & Datum & ", Projektnummer: " & Projektnummer & ", _
Projekt: " & Projekt & Chr(10) & "Hauptthema: " & Hauptthema & Chr(10) & "Punkt " & x & "." & Y & Chr(10) & "Termin: " & Termin & " / KW " & KW & Chr(10) & "Status der Aufgabe: " & Status_Aufgabe & Chr(10) & "Status des Termins: " & Status_Termin & Chr(10) & "Priorität: " & Priorität & Chr(10) & Chr(10) & "Inhalt: " & Inhalt & Chr(10) & Chr(10) & Anhang
'.Attachments.Add ThisWorkbook.FullName 'Die aktuelle Excel Datei
.Attachments.Add NameAnlage1 'Eine beliebige Datei
'.Display 'Falls die Mail noch bearbeitet werden soll.
.Send
End With
End If
End Sub
Gruß, Jürgen