Office: Nach Update auf Office 365 sendet Makro keine Mails mehr

Hallo,
ich hoffe ich kann hier Hilfe erhalten. Nach dem Update auf Office 365 kann das Makro die Mails nicht mehr versenden. Das Makro bleibt bei folgender Zeile stehen.

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)

Sind die Versionen Office 2010 und Office 365 kompatibel, liegt es an der Cloud...

Ich freue mich wenn mir jemand einen Tipp geben kann.

Viele Grüße Petra

:)

 

In folgender Zeile und dann zwei Zeilen??? In welcher Zeile kommt denn der Fehler?

[1] Das Objekt Outlook.Application ist VBA nicht bekannt
[2] Das Objekt ist bekannt, konnte aber nicht erstellt werden. Dann ist olApp Nothing und kann so nicht verwendet werden!

Und überhaupt... Wie lautet denn der Fehler?

 

Hallo,

bei mir läuft folgender Code seit Jahren problemlos unter O365.

PHP:

         Sub Versendebericht_mit_Outlook_versenden()

'zuerst prüfen, ob Outlook auf dem Rechner installiert ist. --------------------------------
Dim olapp As Object

On Error Resume Next
Set olapp = GetObject(, "Outlook.Application")
If olapp Is Nothing Then _
Set olapp = CreateObject("Outlook.Application")
On Error GoTo 0

If olapp Is Nothing Then
MsgBox "Outlook ist nicht installiert. Automaische Versendung somit nicht möglich", vbOKOnly + vbExclamation, "Achtung"
Exit Sub
End If
Set olapp = Nothing

Dim Nachricht As Object, OutlookApplication As Object
Set OutlookApplication = CreateObject("Outlook.Application")

If P_mail_attachments = "" Then
P_mail_attachments = ActiveWorkbook.Path & "" & _
Sheets("Customizing").Range("Custm_Dateiname_Versendung").Value & ".xlsx"
End If

' Empfänger ermitteln und Mailtext aufbereiten
Call vorbereiten_mailversand

Set Nachricht = OutlookApplication.CreateItem(0)

a = MsgBox("  >>> Soll die Mail direkt versendet werden?  <<<", vbYesNo + vbDefaultButton2, "Mail versenden")
If a = vbNo Then
With Nachricht
'          .getinspector
'          .SenderName = P_Mail_from
'          .sendusingaccount = 3
.SentOnBehalfOfName = P_Mail_from
.To = P_Mail_to
.CC = P_mail_cc
.BCC = p_mail_bcc
.Subject = p_mail_subject
.attachments.Add P_mail_attachments
.htmlBody = p_mail_body
.Display
End With

On Error Resume Next
With Nachricht
VBA.SendKeys "^{END}", True                'Cursor ans Ende der EMail setzen
strSignatur = "Sig-01"                              Name der gespeicherten Signatur
.getinspector.CommandBars.item("Insert").Controls("Signatur").Controls(strSignatur). _
Execute
End With
On Error GoTo 0
Else
With Nachricht
.SentOnBehalfOfName = P_Mail_from
.To = P_Mail_to
.CC = P_mail_cc
.BCC = p_mail_bcc
.Subject = p_mail_subject
.attachments.Add P_mail_attachments
.Body = p_mail_body
.Display
.Send
End With
End If

Set OutlookApplication = Nothing
Set Nachricht = Nothing

End Sub