ms-office.gr > Forum > Microsoft Outlook > Outlook - Ερωτήσεις / Απαντήσεις > Επιλογή e-mail για αποστολή μηνύματος

Outlook - Ερωτήσεις / Απαντήσεις Γενικά θέματα γύρω από το Microsoft Outlook.

Κλειστό Θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 28-05-13, 20:02
Όνομα: Αρης
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2002, Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-05-2013
Μηνύματα: 4
Προεπιλογή Επιλογή e-mail για αποστολή μηνύματος

Καλησπέρα σε όλους και συγχαρητήρια για το forum.

Έχω τρεις λογαριασμούς (pop3) σε outlook 2003 θα ήθελα αν γίνεται με κάποιο vb script, όταν πατώ αποστολή του μηνύματος να εμφανίζεται κάποιο παράθυρο με τους λογαριασμούς και να επιλέγω από ποιόν θέλω να στείλω το μαιλ. Δεν ξέρω αν έγινα κατανοητός, είχα βρει κάτι σχετικό αλλά δεν μπορώ να βάλω link. "Daniel Mitchell Prompt for Mail Account when Sending Email" και παίζει αλλά όταν εμφανίζεται το παράθυρο δεν μου φέρνει στην λίστα τους λογαριασμούς το (listbox είναι κενό) . Ευχαριστώ εκ των προτέρων.
  #2  
Παλιά 06-06-13, 00:04
Όνομα: Αρης
Έκδοση λογισμικού Office: Ms-Office 2000, Ms-Office 2002, Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-05-2013
Μηνύματα: 4
Προεπιλογή

Γεια σας

Τελικά βρήκα ένα script που κάνει περίπου αυτό που θέλω. Όταν κάνω αποστολή του μηνύματος , εμφανίζεται παράθυρο που με ρωτά αν θέλω να στείλω το email από τον συγκεκριμένο λογαριασμό, έτσι μπορώ να επιλέξω από που θέλω να στείλω.


Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim msg As Outlook.MailItem
Dim favAcctName As String
On Error Resume Next
If TypeOf Item Is Outlook.MailItem Then
favAcctName = Application.Session.Accounts(1).DisplayName
Set msg = Item
If msg.SendUsingAccount = favAcctName Then
res = MsgBox("Do you want to send with the " & _
favAcctName & " account?", _
vbYesNo + vbQuestion, _
"Check Send Account")
Select Case res
Case vbYes
Set msg.SendUsingAccount = _
Application.Session.Accounts(1)
Case vbNo
Cancel = True
End Select
End If
End If
Set msg = Nothing
End Sub
Κλειστό Θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Γενικά] ΑΥΤΟΜΑΤΗ ΑΠΟΣΤΟΛΗ ΣΤΟΙΧΕΙΩΝ EXCEL ΣΕ MAIL kritsotis13 Excel - Ερωτήσεις / Απαντήσεις 0 29-06-16 12:28
[VBA] Αποστολή e-mail σε πελάτες μου (vba) mpapada Excel - Ερωτήσεις / Απαντήσεις 0 07-05-15 23:58
Αποστολή αρχείων με e-mail μέσω Αccess mpapada Access - Ερωτήσεις / Απαντήσεις 0 24-04-15 15:25
αυτόματη αποστολή mail ΧρύσαΚ Outlook - Ερωτήσεις / Απαντήσεις 0 21-06-14 08:59
Αποστολή επισυναπτόμενων αρχείων μέσα από φόρμα με mail dim.konst Access - Ερωτήσεις / Απαντήσεις 5 03-10-13 08:37


Η ώρα είναι 15:17.