Der nachfolgende Beispielcode zeigt,wie sich EMails mit Anlagen unter VBA (Word/Excel/Access) per Knopfdruck versenden lassen. Benötigt wird in jedem Fall Microsoft Outlook. z.B. in Excel2000
Sub Schaltfläche1_BeiKlick() ' Aufruf Unterprogramm "senden" Call senden End Sub ' --------------------------------------------------------------- Private Sub senden() ' Outlook Applikation Dim ool As Outlook.Application Dim oInspector As Outlook.Inspector Dim oMail As Outlook.mailitem Dim myattachments As Variant ' Für Inputbox "EMailadresse-Änderung" Dim Mldg, Titel, Voreinstellung, MailAdress ' Adresse anzeigen und Änderung ermöglichen Mldg = "Ist die angegebene Emailadresse richtig?" Titel = "Mailadresse" Voreinstellung = "liste@chello.at" MailAdress = InputBox(Mldg, Titel, Voreinstellung) ' Wurde Abbrechen gedrückt, dann alles beenden If MailAdress = "" Then Exit Sub ' Verweis zu Outlook + neue Nachricht Set ool = CreateObject("Outlook.Application") Set oMail = ool.CreateItem(olMailItem) Set myattachments = oMail.Attachments ' Befreff-Zeile oMail.Subject = "Stand dieser Liste: " & _ Format(Date, "Long Date") & " !" ' An-Zeile (Empfänger) oMail.To = MailAdress ' "g.huber@unilog.at" oMail.Recipients.ResolveAll oMail.Display ' Texteingabe (Nachricht selbst) oMail.Body = "Hier die Exceldatei, bitteschön..." ' Anhang ' Nachfolgend ein Beispiel. Suchen Sie sich eine Datei auf ' Ihrem Rechner aus - vollständiger Pfad muß mitangegeben ' sein. ' Es können auch weitere Dateien angegeben werden. ' Hierzu einfach mit myattachments.Add "???" fortsetzen. myattachments.Add "D:\Eigene Dateien\Beispiel.xls" ' Speicher freigeben Set ool = Nothing Set oInspector = Nothing Set oMail = Nothing End Sub Dieser Tipp wurde bereits 75.334 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |