hat jemand zufällig einen VBA-Code, der eine eine Excel-Mappe in pdf umwandelt und dann diese erstellte pdf-Datei automatisch per Outlook an vorgegebene Empfänger versendet.
Gruß, jensP
On Error GoTo mailzeigen
Dim olApp As Object
Dim olMailItm As Object
Dim i, k As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
i = 2
weiter:
Do Until i > lz
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
.To = "test@test.de" ' Empfänger eingeben
.Subject = "Betreffzeile"
.Body = "Hallo Frau/Herr Test," & Chr(13) & Chr(13) & "anbei die datei... "
.ReadReceiptRequested = True
.Attachments.Add "C:\My Folder\Printout\"Testdate.pdf" 'ggf. anpassen
.Send
End With
End If
Set olMailItm = Nothing
Set olApp = Nothing
End If
End With
Set olMailItm = Nothing
Set olApp = Nothing
Resume Next
GoTo weiter
Ich hoffe dir geholfen zu haben....Problemstellung
Ich möchte den Benutzer zwingen, nur numerische Werte in einen bestimmten Bereich einzugeben. Gibt er einen nichtnumerischen Wert ein, soll der alte Wert wiederhergestellt werden.
Problemstellung
Wie kann ich beim Speichern jeder Arbeitsmappe automatisch eine Sicherungsdatei erstellen?
Problemstellung
Wie kann ich Pfad und Namen aller geöffneten Excel-Arbeitsmappe in einer Tabelle auflisten?
Problemstellung
Wie kann ich in XL8 per VBA einen Verweis zur mso97.dll erstellen?
Problemstellung
Wie kann ich die vor dem Ablauf eines VBA-Programms angezeigte Startansicht am Ende des Programms wiederherstellen?
Problemstellung
Nach Abfrage soll über die Workbook_Open-Prozedur eine neue Arbeitsmappe mit Button und Code erstellt werden.
Problemstellung
Wie kann ich eine Faxbestellung auf Grundlage einer Artikelliste erstellen? Das Bestellformular soll sowohl vervollständigt werden, wenn ich im Formular eine Artikelnummer eingebe wie auch, wenn ich in der Artikelliste eine Stückzahl eintrage.
Problemstellung
Wie kann ich in einer längeren Liste den Seitenumbruch ermitteln und in der Zelle rechts neben der Wertezelle in der letzten Zeile einen Übertrag eintragen lassen?