hallo Surena,
angenommen, Deine
E-Mailadressen stehen in Spalte A
Betreff steht in Spalte B
Pfad und Dateiname steht in Spalte C
dann würde das Makro wie folgt aussehen. Das nachfolgende Makro erstellt eine Outlook-Mail mit den obig beschriebenen Daten aus der markierten Zeile. Dabei muss nicht die gesamte Zeile markiert werden, es reicht wenn eine Zelle der Zeile markiert wird.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
'Verweis auf Microsoft Outlook x.0 Object Library (Pfad: C:\Programme\Microsoft Office\Office xx\, _
Bibliothek MSOUTL.OLB) setzen
Sub Mail()
Dim objOutlook As Object
Dim objNachricht As Object
Dim lngRow As Long
lngRow = Selection.Row
Set objOutlook = CreateObject("Outlook.Application")
Set objNachricht = objOutlook.CreateItem(0)
With objNachricht
'Text für Betreffzeile wird eingefügt
.Subject = Range("B" & lngRow)
'Text in Nachrichtentext
.HTMLBody = "<a href=""file:///" & Range("C" & lngRow) & """>Link zur Datei</a>"
'Text in Empfängerzeile
.To = Range("A" & lngRow)
'Hier wird die Mail angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
End With
Set objOutlook = Nothing
Set objNachricht = Nothing
End SubBeachte bitte den Hinweis auf den zu setzenden Verweis zur Outlook-Bibliothek am Anfang des Makros.
Bei Bedarf kann ich Dir auch meine Beispieldatei zur Verfügung stellen.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
