Problem with .Recipients.Add("alias")

Status
Not open for further replies.

Thibaud

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Hello ,
May you help me for a little bug in my code ? I don't understand why, but when I run my code I got this error message :"Application-defined or object-defined error". This happen in this line : Set myDelegate = OutTask.Recipients.Add("alias")
Do you know what am I doing wrong ?
Have a nice day,
Thibaud
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Create_Task(study As String, deadline As Date)
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipients
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
requester = Worksheets("control_vocabulary").Range("A1").Value
Set OutApp = CreateObject("Outlook.Application")
Set OutTask = OutApp.CreateItem(Outlook.OlItemType.olTaskItem)
ligne_users = 5
colonne_Study = Worksheets("Sponsors").Cells.Find(What:=study, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column
While Worksheets("Sponsors").Cells(ligne_users, colonne_Study).Value <> ""
sponsors = sponsors & ";" & Worksheets("Sponsors").Cells(ligne_users, colonne_Study).Value
ligne_users = ligne_users + 1
Wend

OutTask.Assign
Set myDelegate = OutTask.Recipients.Add("alias")

myDelegate.Resolve

If myDelegate.Resolved Then
With myItem
.Subject = study
.Body = "Deadline pour le test : " & study
.DueDate = deadline 'échéance
.ReminderTime = True 'Rappel
.Display
.Send
End With
End If
End Sub
 

Thibaud

New Member
Outlook version
Outlook 2010 64 bit
Email Account
Yes I can add display the task window and add a recipient manually. if I run that :

With OutTask
.Subject = study
.Body = "Deadline pour le test : " & study
.DueDate = deadline 'échéance
.ReminderTime = True 'Rappel
.Display
.Send
End With
End If
End Sub

I can add it manually but .send did'nt work.
 

Michael Bauer

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server
What I meant is can you manually create the task, assign it someone and send it successfully? If not, what's the error?
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
P Problem with recipients of my emails to reply back to me Using Outlook 2
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
Marc2019 Outlook 2016 Font Problem Using Outlook 5
X I have met my waterloo trying to resolve embedded graphics problem with outlook 2007 and now 2016 Using Outlook 1
D Problem with custom form including _DocSiteControl1 Outlook VBA and Custom Forms 0
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
D Sort Problem with Sent Folders Using Outlook 1
S Conditional formatting problem with "is not empty" and categories Using Outlook 2
Mark Foley The upload of "Calendar" failed. There was a problem with the request. Using Outlook 6
avant-guvnor Import csv problem Using Outlook 7
katehawkins Outlook 2013 Ost to pst conversion problem Using Outlook 1
AbbieWhite The problem with a fairly large file. Using Outlook 3
I Outlook 2013 Send problem - 'Not Responding' forever Using Outlook.com accounts in Outlook 10
EmelineGueguen Help to understand the problem of work Using Outlook 1
W Outlook 2016 search problem persists after applying all known solutions Using Outlook 12
S problem with convert Using Outlook 1
S SendFromAccount - Problem trying to test existing value in open email Outlook VBA and Custom Forms 2
DruinaBiscardi unexpected problem in outlook Using Outlook 1
V Outlook 2003 problem with Windows 10 Creators Update 1709 Using Outlook 0
G Windows Update Causes BCM Database Access Problem? BCM (Business Contact Manager) 4
Grimev66 problem with conversion ost to pst Using Outlook 2
R Problem with searching public folders Exchange 2013/16 Exchange Server Administration 2
J Problem with Outlook 2016 new mail tray icon alert (envelope in the systems tray) Using Outlook.com accounts in Outlook 0
S Problem running Command button code Outlook VBA and Custom Forms 2
A .ost file problem Using Outlook 4
G PROBLEM REGARDING OUTLOOK STORAGE LANGUAGES Using Outlook 4
PetraTech Odd Folder View Problem Using Outlook 3
V iCloud problem Using Outlook 9
D Reply Problem with Outlook.com account Using Outlook.com accounts in Outlook 0
MattC Problem with Outlook 2007 & iCloud / duplicate tasks Using Outlook 1
V Problem moving folders Using Outlook 4
C Problem tracking meeting responses Using Outlook 3
Mark Foley Problem subscribing to shared calendar Using Outlook 1
K Problem with FreeBusy (before 1pm only) Outlook VBA and Custom Forms 7
skylark53 Advanced recurrence problem Using Outlook 2
E RSS export as OPML problem Using Outlook 4
D outlook 2013 contact list problem Using Outlook 0
P Problem with Outlook 2013 Attachments Using Outlook 4
E Outlook 2007: Problem with "Move to Folder >" button on toolbar Using Outlook 6
D No problem ... at this minute, just thanking you for your help. Using Outlook 1
T Random problem in VBA macro Outlook VBA and Custom Forms 6
R Outlook won't run except in Safe mode problem Using Outlook 5
J outlook 2010 delegation problem Using Outlook 3
B Problem with import Excel BCM (Business Contact Manager) 1
chupacabra Problem with IMAP .pst file Using Outlook 13
J categorize problem outlook 2010 Using Outlook 3
deonholt Address Book problem and created new profile ... Using Outlook 1
X Problem Transferring Subset of Outlook 2013 Contacts to iPad/iPhone Using Outlook 5
K Outlook(hotmail)Yahoo problem Using Outlook 6

Similar threads

Top