Anzeige
Archiv - Navigation
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt automatisch als eMail anhängen

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige