PHP und Outlook

[mabu]

Hallo zusammen

Wie kann ich PHP mit Outlook verbinden?

Ich habe ein Script für VBA gebastelt und möchte dieses nun auch für PHP gebrauchen.

Hier der Code für VBA:
*****************************************************************************************
Sub an_Outlook_schicken()

Range("A1") = "Daten werden gesendet........"
Range("D2") = 50 & "%"
Dim myOlApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim myItem As Object
Dim i

For i = 5 To lZeile
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(10) '(olFolderContacts) '10
Set myItem = myOlApp.CreateItem(2) '(olContactItem) '2

Länge_Vorname = Len(Range("B" & i))
Länge_Name = Len(Range("A" & i))

Range("J1") = "Benutzer"
Range("L1") = myNameSpace.CurrentUser.Name
Range("K1").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[1]," & Länge_Vorname + Länge_Name + 1 & ")"
Benutzer = Range("K1").Value

If Range("B" & i) & " " & Range("A" & i) = Benutzer Or Range("A" & i) & " " & Range("B" & i) = Benutzer Then

Else:
myItem.FirstName = Range("B" & i) 'Cells(i, 2)
myItem.LastName = Range("A" & i) 'Cells(i, 1)

'myItem.FullName = Cells(2, 2) + " " + Cells(2, 1)
'myItem.Birthday = Cells(9, 2)

'myItem.CompanyName = Cells(4, 2)
'myItem.BusinessAddress = Range("F" & i) 'Cells(i, 6)
myItem.CompanyName = Range("F" & i)
'myItem.BusinessAddressCity = Cells(2, 4)
'myItem.BusinessAddressPostalCode = "Code"
myItem.BusinessFaxNumber = Range("J" & i) 'Cells(i, 10)
myItem.BusinessTelephoneNumber = Range("I" & i) 'Cells(i, 9)
myItem.BusinessHomePage = ""
myItem.MobileTelephoneNumber = Range("H" & i) 'Cells(i, 8)

myItem.HomeTelephoneNumber = Range("G" & i) 'Cells(i, 8)
myItem.HomeAddressStreet = Range("C" & i) 'Cells(i, 3)
myItem.HomeAddressCity = Range("E" & i) 'Cells(i, 5)
myItem.HomeAddressPostalCode = Range("D" & i) 'Cells(i, 4)


myItem.Email1Address = Range("K" & i) 'Cells(i, 11)
'myItem.Email1DisplayName = Cells(i, 11)
myItem.Email2Address = Range("L" & i) 'Cells(i, 12)
'myItem.Email2DisplayName = Cells(i, 12)
If Range("M" & i) > "" Then myItem.WebPage = Range("M" & i)
'myItem.Display
myItem.Save
Range("D2") = 50 + i & "%"
End If
Next
Range("D2") = 100 & "%"

Call AddNewDistList

MsgBox "Daten wurden an Outlook übergeben" & Chr(13) & "Die Distribution List oder Verteilerliste" & Chr(13) & "heisst NDS BWL37" & Chr(13) & "und kann direkt mit NDS BWL37" & Chr(13) & "im Email aufgerufen werden."
End Sub
******************************************************************************************

Leider finde ich nicht heraus, wie ich externe Programme einbinden kann.

Besten Dank für Eure Hilfe.

Gruss Markus

 

[pxlArtizzt]

ich glaube nicht, dass du mittels PHP an Outlook "rankommst"... jedefalls habe ich noch nie etwas drüber gesehen. Ich sehen da auch eigentlich keinen Grund dafür...
Du könntest allerdings mittels PHP die E-Mail Postfächer auslesen! Ist aber (glaube ich) ein ganz schön komplexes Thema.

 

[mabu]

PHP und Emails auslesen

Kannst ud mir sagen, wo ich zu diesem Script komme? Wenn es möglich ist, Emails via PHP auszulesen, sollte der Rest auch klappen.

Gruss Markus

 

[pxlArtizzt]

Habe ich etwa von einem Script gesprochen? nicht dass ich wüsste...
Ein fertiges PHP-Mail-Script kenne ich leider nicht. Ich weiß nur, dass es dafür eine ganze Befehlsreihe gibt.

du hast mich glaube ich auch etwas falsch verstanden... du kannst nicht die E-Mail auslesen, die Outlook gespeichert hat, sondern die, die auf dem (Mail-)Server liegen!

 

[mabu]

Schade, wäre wahrscheinlich auch zu einfach gewesen. Mal schauen, ob noch mehr Vorschläge kommen.

Dennoch besten Dank.

Gruss Markus