Beiträge von flauder

keiner eine Idee ?

also für Outlook wäre doch dieses hier richtig, oder ?

Sub test()
Dim Mailadresse As String, Betreff As String

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")

Mailadresse = VERKETTEN(Worksheets("Tabelle1").Range("A1:A4"))

Betreff = VERKETTEN(Worksheets("Tabelle1").Range("B1"))

Sheets("Tabelle2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\Test\Mappe1.pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

With olApp.CreateItem(0)

.to = Mailadresse

.Subject = Betreff

.Attachments.Add "D:\Test\Mappe1.pdf"

.Display

.Send

End With

Set olApp = Nothing

Function Verketten(rng As Range) As String

Dim strKette As String

Dim Zelle As Range

For Each Zelle In rng

strKette = strKette & "; " & Zelle.Text

Next Zelle

Verketten = VBA.Right(strKette, Len(strKette) - 2)

End Function

End Sub

danke für den Link, aber ist für mich wirklich Neuland und verstehe das einfach nicht...

Hallo Wizzard,

aha... versteh nur Bahnhof...

Hast du rein zufällig eine Anleitung oder mehr Infos für mich... ?

Hallo zusammen,

leider finde ich in der Suche nichts.

Ich habe in Excel ein Formular erstellt und möchte nun mittels einem Button, als per VBA, das Excelsheet per PDF an David senden.

David möchte auch die Emailadresse aus einer Zelle, den Dateinamen des PDF aus einer verketten Funktion und einer Zelle, sowie den Betreff aus einer verketten Funktion und einer Zelle übernehmen.

VBA für Outlook ist bekannt, aber funktioniert natürlich nicht mit David.

Hat jemand eine Möglichkeit ?