Tabellenblatt automatisch als eMail anhängen

Forumthread: Tabellenblatt automatisch als eMail anhängen

03.10.2004 10:34:15

Subsiro

Hallo Excel-Spezialisten,
ich habe ein Tabbellenblatt ín dem ich Daten aus anderen Tabellen einlese, auch die eMail Adresse.
Das Ganze sieht dann aus wie z.B. eine Fax-Vorlage mit allen Bestelldaten.
Gibt es eine Möglichkeit das wenn,ich jetzt in diesem Tabellenblatt auf die eingelesene email Adresse klicke (es öffnet sich dann Outlook)sich das Tabellenblatt in dem ich mich ja gerade befinde,automatisch anhängt und die Besagte Empfänger Adresse auf die ich gerade geklickt habe sich als Empfänger in Outlook einträgt?
Ich habe keine VBA Kentnisse und habe es mit Makro aufzeichnen versucht hatte aber Probleme mit Outlook...
Habt Ihr eine Idee wie man so etwas lösen könnte?
Danke im voraus...
Gruß Subsiro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblatt automatisch als eMail anhängen

=Peter=

Schaue Dir mal folgende Seite an: http://www.rondebruin.nl/sendmail.htm
Gruss
Peter

AW: Tabellenblatt automatisch als eMail anhängen

05.10.2004 16:18:42

Subsiro

Hallo,danke für die Info habe was gefunden,
funktioniert auch.
Es fehlt leider noch etwas und das bekomme ich nicht hin, und zwar würde ich gerne nur einen bestimmten Bereich der Tabelle senden und dann noch einen kleinen Text(ist immer gleich) der in Outlook Express eingetragen wird.zB.:Sehr geehrte Damen und Herren u.s.w.
Nach dem Senden soll die Kopie wieder gelöscht werden...
Hier ist das Programm was einwandfrei funktioniert allerdings ohne die oben genannten
sachen...
´


Sub Mail_Every_Worksheet()
Dim sh As Worksheet
Dim wb As Workbook
Dim strdate As String
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("G13").Value Like "*@*" Then
strdate = Format(Now, "dd-mm-yy h-mm-ss")
sh.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Sheet " & sh.Name & " of " _
& ThisWorkbook.Name & " " & strdate & ".xls"
.SendMail ActiveSheet.Range("G13").Value, _
"This is the Subject line"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End If
Next sh
Application.ScreenUpdating = True
End Sub

Kann mir jemand hefen das zu realisieren?
Danke im voraus..
Gruß Subsiro

Beliebteste Forumthreads (12 Monate)

Tabellenblatt automatisch als eMail anhängen

Forumthread: Tabellenblatt automatisch als eMail anhängen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabellenblatt automatisch als eMail anhängen

Forumthread: Tabellenblatt automatisch als eMail anhängen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread