Hallo Ihr User,
habe ein recht kniffliges Problem. Benutze eine Excel Tabelle, die ich via Makro an bestimmte Empfänger über Mail versenden möchte.
Ich verwende Outlook. Das Programm läuft unter Outlook, das ist nicht das Problem.
Das Problem stellt sich wie folgt:
Ich möchte diese Excel Tabelle in 3 Versionen haben.
Version 1: für Outlook mail versand. (habe ich bereits)
Version 2: für Outlook Express mail versand.
Version 3: für Windows Live Mail versand.
Als erstes gebe ich euch meinen bestehenden Code, wo Outlook versand konfiguriert ist und alles läuft.
Sub Mailversand()
Dim ol, Mail As Object
Dim Shop As String
Set ol = CreateObject("Outlook.Application")
Set Mail = ol.CreateItem(0)
Shop = InputBox("Wo bist du?", "CSV-Export", "Berlin")
If Shop = "" Then
Shop = InputBox("Wo bist du? Du musst schon was eingeben!!!", "CSV-Export", "Berlin")
End If
Range("B2:H24").Select
Selection.Copy
Mail.Subject = "Betreffzeile" & " " & Shop
Mail.To = "test@test.de"
Mail.cc = ""
Mail.bcc = ""
'mit body wird nur noch im txt-Format versandt!
Mail.body = ""
'Mail.Attachments.Add x
'Mail anzeigen
Mail.Display
Application.SendKeys ("^v")
' mit dem folgenden Befehl kann direkt gesendet werden:
mail.send
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
Wer kann mir helfen?
Ich gehe davon aus das lediglich "Outlook.Application" ersetzt werden muss durch das jeweilige Programm, jedoch fehlt mir da der Code (die Bezeichnung). Habe schon sämtliches ausprobiert. Die große Suchmaschiene mit den zwei o's in der mitte kann mir auch nicht weiter helfen.
Hat jemand erfahrung mit Excel, sendmail, mit windows Livemail oder outlook express?
Bin für jeden Rat dankbar.
MfG Florian007
